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INTRODUCTION 


“HCP COMMUNICATES AND STRUCTURES describes many of the areas oft 
MCPIT that change considerably from release to release and is a 
companion document to the MCP precuct specification 2212 54622 


Master Control Program II. Tt contains four sections and an 
appendix» covering MCP communicates»s declarations» and fite 
attributes. Each section contains its own introductions and 


entries» where possibles are indexed alphabetically. 


Name | | dumber 
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This section contains alt the MCP communicates that are valid as 
of the Mark 9.0 release of MCPII. The Tabte of Contents 
sectionalizes them by number and the Atphakbetic Index contains a 
named page reference for each individual commmunicate. 
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READ = CTeVERB 01 


REAL (MICRO MCP) 


CT.VERE 


~ CTOBJEtCT 


F  CT.ADVERB 


CT.1 
CT.2 
CT.3 ( 


CT. 4 
CTS 
CT.6 


O1 
FILE.NUMBER 4 
BIT _ | 
0 REPORT & RETURN TO USER ON €UF 
a REPORT & RETURN TO USEK ON PARITY 
2 REPORT & RETURN TO USER ON INCOMPLETE 170. 
3 LENGTH ADDRESS PAIR IS PRERERY FOR RESULT MASK 
FIELD : 7 
4-6 
7 STACKERS~~STACKER # IS IN CT.3 
B-11 = 


LOGICAL RECORD 6IT LENGTH | 

LOGICAL RECORD BASE RELATIVE. SIT ADDRESS 

RANDOM FILE ACTUAL BINARY OISK KEY 

CRECORG NUMBER INSERTED BY MCP FOR SERIAL FILES) 


OR 


LENGTH OF KEY FOR REMOTE FILES 


ADDRESS OF KEY FOR REMUTE FILES GNLY 
LENGTH IN BITS OF RESULT MASK 
GASE RELATIVE ADDRESS UF RESULT MASK FIELD 


— REINSTATE- MSG.PTR VALUES 


GOOD READ 
END OF FILE 
1/G ERROR 


INCOMPLETE I/79 
IMPOSSIBLE SEARCH CRPG SEARCH OP) 


dW AS mt © 


en 5 
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WRITE CMICRO MCP) 


CT.VERB 02 
CT.CHJECT = FILE.NUMBER 
CT.ADVERB BIT | 
| 0. REPORT & RETURN TG USER ON EDF 
i REPORT & RETURN TO USER ON PARITY 
vp 2 REPORT & RETURN TO USER UN INCOMPLETE 179 
3 LENGTH ADDRESS PAIR 15 PRESENT FOR RESULT MASK 
| FIELD | 
ea 4 “BEFGRE/AFTER VARIANT FUR PRINTER FILES 
0 = BEFORE | 
1 =s= AFTER 
5 CTe7 CONTAINS MORE ADVERBS 
6 QUEUE FILES: WRITE Td FRONT OF 
QUEUE C™STACK"). | 
7 STACKERS““STACKER # IS IW CT~3% 
B-i1 PRINTER SPACING (4 BIT VALUE) | 
0 NO PAPER ADVANCE 
1 SKIP TO CHANNEL 1 
2 SKIP TO CHANNEL 2 
3 SKIP TO CHANNEL 3 
4 SKIP TO CHANNEL 4 
5 SKIP TO CHANNEL 5S 
6 SKIP TO CHANNEL 6 
7 SKIP TO CHANNEL 7 
8 SKIP TO CHANNEL 8 
9 SKIP TO CHANNEL 9 
A SIP TO CHANNEL 10 
B SKIP TO CHANNEL 11 
C SKIP TO CHANNEL 12 
D TUP OF PAGE CVALTO ONLY WITH LINAGE 
COUNTER) 
—E SINGLE SPACE 
|  F DOUBLE SPACE 
CTe1 LOGICAL RECORD BIT LENGTH 
CT.2 LOGICAL RECORD BASE RELATIVE SIT ADDRESS 
Clas RANDOM FILE ACTUAL BINARY DISK KEY 
CRECORO NUMBER INSERTED 8Y MCP FOR SERIAL FILES) 
OR 
| LENGTH OF KEY FOR REMOTE FILES 
CT.4 ADGRESS OF KEY FOR REMUTE FILES ONLY 
—CT.5 LENGTH IN BITS OF RESULT MASK | 
CTe6 BASE RELATIVE ADDRESS OF RESULT MASK FIELD 
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Ce & Sete EXTENSION OF CT.ADVERB 
- og « BIT. | 
0 DYNAMIC CHANGE UF LINAGE COUNTER VARTABLES 
1 EXTENDED COMMUNICATE: WRITE CAT POSITIUN 
2. * NEW COMPILER TYPE = ANSI.74 FOR NOW 
“s S723. = _ 
CT.8 BITS PAGESIZE 


8 
8 ITS UPPER MARGIN 
: | 8 BITS FOOTING 
CT.9 8 BITS LOWER MARGIN. 
& BITS NOT USED 
8 BITS SPACING FOUR PUSITION 


REINSTATE}MSGePTR VALUES 


0 GOOD WRITE 
1 | END OF FILE 
2  I70 ERROR 

3 


INCOMPLETE I/0 


SEEK = CIsVERB 03 


SEEK CMICRO MCP) 
CTeVERE — 603 | 
CT.OBJECT FILE.-NUMGER 
CT.ADVERB = 
CTe.l mr. g 
CT.2 - . Sah 
CT.3 RANDOM FILE ACTUAL BINARY OISK KEY 
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“SORTER CONTROL 2 crevene 94 


SORTER CONTROL 

CTeVERE 04 
CTe-OBJECT - FILE.NUMBER 
CT»ADVERB BIT 


O-5 = 
6 POCKET SELECT 
v STOP“FLOW 
8 BATCH“COUNT 
9 POCKET LIGHT 
10 
11 ENDORSE 
CT.1 POCKET NUMBER 


CES GAP GNP GY ae cere << a a an —_ eke Ok Sm a oe LES TES 


SGRTER READ CMICRO MCP) 


CTeVERB = 05 _— 

CT.O8JECT FILE.NUMBER 

CT-ADVERE = - 

CTe1l READ AREA BIT LENGTH 

CT.2 READ AREA BASE RELATIVE 81T ADORESS 
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gPEN COM) = CI-VERB 06 


OPEN COM) 

CT.VERE - 06 | 

CT.OBJECT #PATH DICTIONARY ENTRIES COYNAMIC OPEN BIT 1 UF 
a CT. ADVERB=1) 

CT.ADVERB ~=«-BIT 


0 INCLUDES PACKIO OF OICTIONARY 
1 DYNAMIC GPEN COMINQ) 
2 DMeSTATUS FURMAT © 
:  O=BINARY 


1=4-BIT DECIMAL 


3 ON EXCEPTION 
4 UPDATE 
5 REORGANIZATION CREORG ONLY) 
6 INCLUDES LOGICAL DATA BASE NAME 
ra ~~ 2. 7-11 =) | 
.CTel = =——— ss MW STATUS REGISTER BIT LENGTH 
CT.2 OMe-STATUS REGISTER BASE RELATIVE BIT ADDRESS 
CT.3 DATA BASE: NAME BASE RELATIVE BIT ADDRESS 
. CTe4 ' DATA BASE NAME BIT LENGTH 
. €T.5 |  PACKIO BASE RELATIVE BIT ADORESS (BIT 0 OF 
| CT. ADVERBS = 1) 
CT.6. PACKIO SIT LENGTH CBIT O OF CT. ADYERS= 1) 
CT.7 | LOGICAL DATA BASE NAME BASE RELATIVE BIT ADDRESS 
7 (81T 6 OF CT.ADVERB=1) 
| CT.8 7 LOGICAL DATA SASE NAME SIT LENGTH C8IT 6 OF 


. CT-ADVERB=1) © 
CT.9 BITC36) ABSOLUTE DISK ADDRESS OF PATE DICTIONARY CDYNAMIC OPEN 
BIT 1 UF ci. ADVERB=1) 
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cLasé (On) = CIs¥ ENB OZ 


CLOSE COM) 
CT.VERE 07 
CT.-OBJECT -°- 
CTeADVERB BIT 


O-1 - | 
2 DM.STATUS FORMAT 
—O=BINARY 
1=4-B1T CECIMAL 
3 ON EXCEPTION 
4-11 = 
CT.1 DN.STATUS REGISTER BIT LENGTH 


CT.2 DMe STATUS REGISTER BASE RELATIVE BIT ADDRESS 


OPEN 

CTeVERB 08 
CT.GBJECT  FILE.NUMBER 
CT.ADYERB = BIT 


0 INPUT 

1 (QUTPUT 

2 NEW FILE 

3 PUNCH 

4 PRINT 

5 NO REWIND/INTERPKET CDATA RECORDERS) 

6 REVERSE/POCKET (CARD PUNCH) 

7 LOCK 

8 LOCKOUT 

9 REPORT FILE MISSING 

10 °° REPORT FILE LOCKED : : 
11 OVERRIDE NAMING CONVENTION AND SECURITY 


REINSTATEMSG.PTR VALUES 
0 GOOD OPEN | 
1 = =«=6©FETLE NOT PRESENT CINPUT DIS') 
PACK NOT PRESENT CGUTPUT CISK) 
NO MORE FILES ON MULTI“FILE KEEL CTAPE) 
2 FILE LOCKED CDISK FILES UNLY) 
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CLUSE = CTsVERB 09 


CLOSE 

CT.VERE 02. . 

— CTSOBJECT «= FILE. NUMBER | 
 CTseAOVERB BIT 


x REMOVE 
Sle ema te h oaeet 
5 NO REWIND 
6 OVERRIDE NAME CONVENTION AND SECURITY 
7 LOCK 
~~ gO TF NOT CLOSED: 
9 ROLLOUT 
0 AUDIT SWITCH 
1 TERMINATE 
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POSITION CMICRO H P (BACKUP FILES GNLY)? - CIeVERE 10 


POSITION CHICRO MCP (BACKUP FILES JNLY)) 
CT VERB 10 

CT.OBJECT FILE. NUMBER 

CTeADVERG BIT 


0 REPORT & RETURN TO USER ON EOF 

1. REPORT & RETURN TO USER ON PARITY 

2 REPORT & RETURN TO USER JUN INCOMPLETE I/0 

tae | 

e POSITION TO END OF FILE 

9 CT-1 CONTAINS PRINTER CHANNEL NUMBER 

10 CT.-1 CONTAINS RECORD COUNT AS A FIXED NUMBER 

il CT-1 CONTAINS RECORD NUMBER DESTRED 
CT.1 DEFINED BY BITS IN CT.ADVERB 


REINSTATEMSGePTR VALUES 
0 GOOD POSITION 
1 END OF FILE COR ENC OF PAGE Uh PRINTER) 
2 ~I/7C ERROR 
3 INCOMPLETE I/0 


ACCESS FILE 2ARANEIES LOCK CFPB) - CIeVERS 11 Z 
BLOCK | (a OOHe 


ACCESS FILE PARAMETER aLoOcK CFPB) 
CT.VERB 11 | 

CT.-OBJECT FILE-NUMBER 
CT.AQVERG BIT 


O-io0 = 
il O=READ 
T=WRITE 
CT.-1 RECEIVING FIELD BIT LENGTH 


/—6hUCmTAW?2 RECEIVING FIELD BASE RELATIVE sbIT ADDRESS 


2-10 
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ACCESS FILE INFORMAPION JLOCK C(FIB) = CT.VER6 12 


ACCESS FILE INFORMATION BLOCK (FI3) 
Ss sais a “sta seals eno a a‘ lal el ln ses Sia tana co nab @ a a «ae 
CT.VERE 42 
CT<QBJECT FILE. NUMBER 
CTe-ADVERG BIT 
0-10 = 


11 FORMAT 
| O=CHARACTER 
| 1=BINARY _ 
CT.1 RECEIVING FIELD BIT LENGTH 


CT.2 RECEIVING FIELC BASE RELATIVE bIT ADDRESS 


DATA QVERLAY 


— CT.VERE 13 
 CT.OBJECT BASE RELATIVE BIT ADDRESS OF 76 aIT FIELD IN FORMAT OF : 
| 4 a11S - 


24 BITS BEGINNING ADDRESS 
24 BITS ENDING ADDRESS 
24 BITS RELATIVE DISK ADDRESS 


: 2-11 
f a sa 


BURROUGHS COKPURATION | COMPANY CUNFIOENTIAL 


COMPUTER SYSTEMS GROUP MCP COMMUNICATES AND STRUCTURES | 


SANTA BARBARA PLANT 9.0 2219 0144 SEC. II 


ACCESS DISK FILE HEADER CDFH) - CI-VERE 14 


ACCESS DISK FILE HEADER CDFH) 

weer ewcocenooenl: = ean an a a a ee om an ampe an ee om ae 

CT. VERE 16 

CT-GBJECT BASE RELATIVE ADDRESS OF 30 CHARACTER FILE IDENTIFLER + 
PACK.ID CAT MFIO0 CAT FLO 


CT.ADVERS 6IT = 
2 5 ee Re «frm - 
a RE 


6 INeSEC 
7 REPORT WRITE CID NOT OCCUR 
8 ACCESS GN.BEHALF .OF 
9-11 O=WRITE 
. 1=READ 
paral 2=READ & FURMAT IN BINARY 


(get | 
| ia 3=READ & FORMAT IN CHARACTERS P 
(CTe1\Y2c RECEIVING FIELO SIT LENGTH Fuller Te) eq B7(E) 


CT.2 RECEIVING FIELD BASE RELATIVE SIT ADDRESS 
COT+3) BIT LENGTH OF USERCODE/PASSWORD CSHOULD BE 160)-Ke oyry, | 
iCT. BASE-RELATIVE ADDRESS OF USERCODE/PASSWOAD 


“REINSTATESHSG.PTR VALUES 
0 COMMUNICATE COMPLETE 
1 FILE NOT PRESENT | 
ANU IF ACCESS ON.SEHALF.OF? 
NG USERCODE FELE ON DISK 
INVALID USERCODE/PASSWORD COMBINATION 
“VIGLATES USERCODE NAMING CONVENTIONS 
SECURITYTYPE ERROR 
SECURITYUSE ERROR | 
REQUESTED FILE IS AN EXECUTE-ONLY CODE FILE 
WRITE DID NOT CCCUR BECAUSE OFH.SELF WAS 
INCORRECT | 


CONKAU SW 


IF A SECURITY ERROR IS OETECTED ON AN) ACCESS.FILE.HEADER 
UNe-BEHALF.OF» A "READ" WILL BE DONE BUT A “WRITE™ WILL NOT GE. 
IN ELTHER CASE» THE REINSTATEMSG.PTR WILL INDICATE THE RESULT. 


BURROUGHS CORP 
“COMPUTER SYSTE 
SANTA BAREARA 


- EINOAMUOIE 


FF INO/MOOIFY/ 
_CTeVERE 
CT.OBJECT 


CT. ADVERB 


CT.1 
CTe2 
~—6hCmT A.D 


CT.6 
CT.7 BITC32) 
CT.7 B1T(24) 


CT.8 BITC24) 
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LOCK eee 
REMAPE (6 BITS)» INVOKES C6 Bits) & STRUCTURES 
Ci2 @ITs) OF PATH 
BIT 
0 — RETURN LIST HEADS CREGRG ONLY) 
1 §§ RETURN LOGICAL ADDRESS CREORG & OM ING ONLY) 
2 6 DME STATUS FURMAT | 
«© O=BINARY 
— L=4"°BIT DECIMAL 
. ON EXCEPTION 
DON®T READ DATA RECORD CREOKG & DMINO ONLY) 
MODIFY/LOCK | 
, RETURN RECORDeTYPE CREORG . DMING OWL Y) 
“10° SELECTION EXPRESSTON 
= NEXT ; 
PRIOR 
FIRST 
LAST 
NEXT AT 
— CURRENT. 
AT 
ATO ADORESS COMING ONLY) 
 WEXT GEN SEL EXP. : 
GEN SEL EXP 


NM OU Ew 


CONAM SWN HO 


4 QOATA SET OR MANUAL SUBSET SELECTION EXPRESSION 


DM.STATUS REGISTER BIT LENGTH. | 
DM-STATUS REGISTER BASE RELATIVE wIT ADDRESS 
DATASET RECORD WORK AREA SIT LENGTH 


DATASET RECORD WORK AREA. BASE RELATIVE SIT ADORESS 


SEARCH KEY CCAT OF COMPONENT NAMES) BASE RELATIVE BIT ADR 
a CSEL EXP = 4969809) — 
REMAP#» INVUOKE# & STRUCTURES* OF DATA SET 
LUGICAL ADDRESS CSEL EXP =7) COMING GNLY) 
LENGTH OF POLISH STRING REQUIRED TO EVALUATE GEN.eSEL.EXP 
CSEL EXP = &»9) 
SASE RELATIVE AeURESS OF GEN. SEL EXP (SEL. EXP = 869). 
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SIQRE COM) = CT 


STORE CDN) 


CT.VERE 
CT-OSJECT 


CT.ADVERG 


CY.1 
CT.2 
CT.3 
CT 24 


CT.6. 


VERB 16 


16 
KEMAP# (C6 BITS)» INVOKE# C6 BITS) & STRUCTURE # 
C12 BITS) CSUBSET IF INSERT) 


BIT 
0 INSERT | 
1 — RETURN LOGICAL ADDRESS CREORG ONLY) 


2 — OM.STATUS FORMAT 
| O=BINARY 
t=47HBIT DECIMAL 
3 ON EXCEPTION 
4 BEGIN TRANSACTION CNOT INSERT) 
5 INCLUDES<LIST~HEADS CREORG ONLY) 
6  -€END TRANSACTION CNOT INSERT) ow 
( NO AUDIT CBEGIN UR END TRANSACTION ONLY) 
& SYNC CENOD TRANSACTION ONLY) 
9 = 4 


10 °#£,STORE INDEXES ONLY CREORG CNLY) 
il PSEUDO CREATE. CREORG ONLY) 
DM.STATUS REGISTER BIT LENGTH 


DMeSTATUS REGISTER BASE RELATIVE BIT ADDRESS 


DATASET RECORD WORK AREA BIT LENGTH CNOT INSERT) 

DATA SET RECORD WORK AREA BASE RELATIVE 8IT ADDRESS 
CNOT INSERT) 

REMAP#» INVOKE# & STRUCTURES OF GATASET CINSERT) 
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SANTA BARBARA mares g | —6«9 20 | 2219 0144 SEC. If 
“DELETE COM) = CI<VERB 17 


DELETE COM) 

CT.VERE 17 

CT.OBJECT REMAP# (6 SITS)» INVOKE# (6 BITS) & STRUCTURE 4 
| C2 BITS) «CSUBSET IF REMOVE) 

CT.ADVERB BIT ¢ 

oe | 0 REMOVE 


: | | 
2.  OMeSTATUS. FORMAT 
O=BINARY 
“1=4-B1T DECIMAL 
3 ON EXCEPTION 
= a 4-11 - 
CT. DM.STATUS REGISTER BIT ‘LENGTH 
CTs2° DM.STATUS REGISTER BASE RELATIVE BIT‘ ADDRESS 
CTe3 DATASET RECORD WORK AREA SIT LENGTH CNOT REMOVE) 


CT.4 DATASET RECORD WORK AREA BASE RELATIVE BIT ADDRESS 
» ° CNOT REMOVE ) 
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CREATEZRECREAT E <M) = CIAVERB 18 


CREATE/RECREATE COW) 


CT.VERB 18 | 
CT.OBJECT REMAP# (6 BITS)» INVOKE# (6 BITS) & STRUCTURES 
(12 BITS) 
CTeADVERB ult 
* @) : -_ 
1 RECREATE 
2 DM.STATUS FORMAT 
O=BINARY | 
1=4-BIT DECIMAL 
3 ON EXCEPTION 
4-11 = 
CT.1 —  -DMsSTATUS REGISTER BIT LENGTH 
CT.2 OM.STATUS REGISTER BASE RELATIVE BIT ADDRESS 
CT.3 DATASET RECORD WORK AREA 81T LENGTH 
CT.4 DATASET RECORD WORK AREA BASE RELATIVE BIT ADDRESS 


SWITCH. TAPE.DIRECT ION 

CT.VERB 19 eS 
CT.-OBJECT FILE.NUMBER 
CTsACVERB = BIT. 


0 0.= SWITCH TAPE DIRECTION ONLY 
___. 2 = RESET FI8 FIELCS TO BOF 
1-7 NOT USED | 
8-11 0 = READ FORWARD 

‘1 = READ REVERSE 

4 = WRITE 


REINSTATE.MSG.PTR VALUES 
0 GOOD SWITCH 
i FILE NOT OPEN 
2 WRONG DIRECTION OR NOT A TAPE FILE 
3 END OF FILE 
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LEMHINATE (STOP AUN) = CI.VEKE 20 


TERMINATE CSTOP RUN) 


CT.VERE 20 


FREE (OM) - CeVERQ 21 


FREE (OM) 


~—CT.VERB 2t0 | a a 
CT.GHJECT REMAP# (6 BITS)» INVOKE# (6 BITS) & STRUCTURES 
C12 BITS) | i | | 
CT ADVERG BIT #34. 
O71 — | 
2 — OMASTATUS FORMAT 
7  O=BINARY. | 
1=4°BIT DECIMAL 
3 GN EXCEPTION 
4-11 = 
CTe1 |  OMLSTATUS REGISTER BIT LENGTH 


— CTe2 DM.STATUS REGISTER BASE RELATIVE BIT ADORESS 
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LINEZOATE DAY = CI-VERB 22 @ Olbe 


TIME/DATE/SCAY 
CT.VERE 22 ) _ 
CT.QHJECT ASE RELATIVE BIT ADDRESS UF WHERE TG PUT THE RESULT 
CTs.ADVERS BIT | : | 
) 0 1=DATE REQUESTED 
1-2 FORMAT 
: 0 YY/DDD CJULIAN) 
1 MM/DD/YY _ 
2 YY/MM/DO 
3 DOS MM/TY 
3-4 REPRESENTATION 
0 BINARY | 
1 4°31f DECIMAL 
| 2 8-BIT DECIMAL 
5 L=TIME REQUESTED 


6°77. FGRMAT 
0. COUNTER 


~ - HHEMMSS55.5 C247HOUR CLOCK) 
c% 2 HHSMM2SS.S8 TT Cl2-HOUR CLOCK» TT=AM/P™) 
6-9 REPRESENTATION 
~—6©O OUBINARY 
Lh 4-8IT OECIMAL 
2 8-BIT GECIMAL 


10 L=TODAYS-NAME REQUESTED | 
| lt at | | 
NOTE = TODAYS.NAME RETURNS 9 CHARACTERS LEFT JUSTIFIED 
tf ORMAT BINARY | 4-8IT DECIMAL &8-BIT DECIMAL 
YY/DDD (JULIAN) 749=16 FL 2=20— 164+24= 40 
MM/DO/YY — &4547=16 8+848=24 16#16#+16=48 
YY/MM/OO | 7#445=16 B+B+B=24— 16+164+16=48 
DD/MM/YY —54447=16 4+B4=24 16+164+16=48 
CCUNTER 20 24 48 
HH3MM2S5S.S 5#6464+4=21 8+84+8t4=28 16#+164164+8=56 
HH3MM2SS.S TI 4464644416236 8¢648+4416=44 16416416+8416=72 


TODAYS NAME | | 72 ©9 CHARe LEFT JUST.) 
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INITIALIZER 1/0 
CTe-VERB  =—s_23 
CT.GSJECT 8ASE RELATIVE ADORESS uf 
- 6 BYTE UNIT MNEMONIC — 
OR 
1/0 DESCRIPTOR 
_-CTsADVERE = VALUE 


0 ASSIGN UNIT TO THIS: PROGRAM 
i RELEASE UNIT 
2 INVALID 
3 LINK IN THE 170 DESCRIPTOR AND INITIATE 
4 INVALID. 
CY.1 7 IF CT. ADVERB=1 AND CT-1=1 THEN THE MCP WILL "RY" 


THE DEVICE AFTER RELEASE 
REINSTATEMSGePTR VALUES 
IF CT. ADVERB=0 THEN 
PORT» CHANNEL AND UNIT OF DEVICE REQUESTED 
PORT BIT (3) | 
CHANNEL BIT (4) 
FILLER BIT (1) 
UNIT BIT (4) 
‘ALL OTHER CASES 
0 GOOD COMMUNICATE 
1 DISPATCH TU INVALID PORT OR CHANNEL 
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WAIT (SNOOZE) - CT-VERB 24 


WALT (SNOOZE) — 

CT. VERB 24 

CT-OBJECT LENGTH OF TIME IN LOTHS GF A ScCOND : 
FUNCTION PROGRAM IS PUT TO SLEEP FGR SPECIFIED LENGTH OF TIME 


zie 


CT.VERB 25 
CT.CEJECT - 
CT.«ADVERB - 
CT.1 MESSAGE AREA BIT LENGTH 
CTe2 MESSAGE AREA BASE RELATIVE BIT ADDRESS 
REINSTATE.SSGePER VALUES 
| 0 NO ERRORS IN ZIP TEXT 
1 ZIPPED INVALID CONTROL CARD 


ACCEPT - CIeVERB 26 


ACCEPT 
CT.VERE 26 
CT.QevecT - 
CT.AQVERS BIT oe 
7 0 RETURN IF NO MESSAGE 


os jel. - 
CT.1 MESSAGE AREA BIT LENGTH 
CT.2 MESSAGE AREA BASE RELATIVE BIT ADDRESS ~ 


 REINSTATE.MSGePTR VALUES 

7 | 4) MESSAGE OF LENGTH ZERO 
a@FFFFFFA NO MESSAGE PRESENT | 
ANY OTHER VALUE LENGTH OF MESSAGE IN JITS 
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DISPLAY - 


PLAY - CT.VERB 22 


OISPLAY 


CT.VERB 27 

CT.GBJECT - 

CTeADVERB SIT 

oro = | | 
11 O=CRUNCH BLANKS UUT OF MESSAGE 
3 L=PRINT MESSAGE AS IS 

CT.l MESSAGE AREA BIT LENGTH | 
CT.2 MESSAGE AREA BASE RELATIVE BIT ADDRESS 


oe a om eee Ele alge wee =_— me Oe et a a ae ae —_ a7 


USE/RETURN 


CTeVERS 28 


SORT HANOLER 
» CT.VEREB 29 
~CTeQBJECT = ASE RELATIVE ADDRESS OF SORT INFORMATION TABLE 
CT.ADVEREB oa C12). 
| 0 SCRT.RESTART 
1 = SORT.-DUPCHECK 
2 ~ SORT.W1.PID 


3 = SORT.W2.PID 
s 4-11 FILLER | 
oe BASE RELATIVE &IT ADORESS OF SORT KEY TABLE | | 
CTo2 INPUT FILEsNUMBER OR ADOR OF MERGE. INPUT.TABLE IF AERGE 
CT.3 GUTPUT FILE.NUMBER : 
CT.4 TRANSLATE FILE-NUMSER OR NOT 0 
CT.5 = : 
CT.6 | DATA.ADDRESS COELETEKEY.TABLE) 
CT.7 IF CSORT.W1.PIU 2= W1.ePICD.FLAG) THEN 
| DATA.ADDRESS CWL.PID) ELSE 0 


CT.8 oUF (SORT.W2.PIG s= W2ePIDeFLAG) THEN 
» 7 DATA. ADORESS (W2-P10) ELSE O 
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4 
te 


SOL TRACE - CI.VERS 


SDL TRACE 
CTeVERB 30 
CTe-OB8JECT TRACE FLAGS 


@ lee 


EMULATOR JAPE (MICRO MCP) = CI.VERG 31 


EMULATOR TAPE CMICRO MCP) 


CT.VERE 31 | 
CTe OBJECT FILE.NUMBER 


CT.ADVERB «BIT 
072s OPCODE 


O = READ 
1 = WRITE 
2 = SPACE 
3 = REWINC 
4h = TEST 


3-8 OP -CODE-VARIANT 
«3 = REVERSE CREAD» SPACE)» ERASE CWRITE)> 
TEST eWAITeREADY eNOTeREWIND (TEST) 


4 


ONEsRECORD (CSPACE)» TAPESMARK CWRITE)> 
TEST WAITSNOTeREADY (TEST) 
5 = GDD-PARITY C(READ» SPACE» WRITE) 
6 = NOISE CREADs» SPACE) 
7-8 = NOT USED | 
9-11 SCHEDULING.VARIANTS 
| 9 = FETCHeRESULT | 


11 = REPORT AND RETURN ON IO ERXOR 
(CTel ss USER TAPE BUFFER B1T LENGTH 
CT.2 “USER TAPE BUFFER BASE RELATIVE ADDRESS 
Tes USER ERROR MASK (8IT SET IMPLIES USER WILL HANDLE THE 
fo CORRESPONDING ERROR) 


0 CMAY NUT USE) 
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1 (MAY NOT USE) 
2 NOT READY. 
3 PARITY CNOT GN TEST) 
4 ACCESS CNGT UN TEST) 
5 TRANSMISSION CYN TEXT ONLY) 
6 END-OF .TAPE 
7 BEGINNING. OF. TAPE 
8 WRATE.LOCK.OUT _s | | =e * * | 
9 END.OF.FILE CNOT OM TEST)» UNIT.PRESENT CON 
TEST) | | : 
10  - REWINDING 
11, TIME.QUT (NOT SN TEST) 
12-16 CMAY NOT USE) 
17 — - SHORT.RECORD 
18 LONG. RECORD 
19 | OROPOUT 
20 — INITIATE.LATE 
21 —CMAY NOT USE) | 
22  TRANSMISSIGNJERROR-MEC 
23 —TRANSMISSIONSERRORMTIC 
CT.4 | BASE RELATIVE ADDRESS OF USER'S 48 3IT RESULT 


BIT 0723 OF RESULT CONTAIN THE RESULT DESCRIPTOR 
BIT 24-47 OF RESULT CONTAIN ee eenOne LENGTH 
REINSTATE.~ MSGePTR VALUES 


0 = RESULT RETURNED 
1 = IQ-ERROR 
2 = RESULT NOT AVAILABLE 


(CGBCL PROGRAM ABNORMAL END 


co 
ia 
Tom) 
ara 
je 
jc 
im 
(Is 
cD 
ka 
ro 


COBCL FROGRAM ABNORMAL END 


CTeVERE 32 


| SORT EQS = CIAVERB 33 | 


“SORT EOJ 

CT.VERE 33 ; 
CT-OBJECT FILESNUMBER 
CTsADVERG CLOSE TYPE 

CTo1 ENO-OF-FILE PCINTER 
CT.2 RECORD SIZE 


tie 
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SEARCH DISK DIRECTORY - CI.VERB 34 
| ‘ a? 
CT.VERE 34 | | - 
CTeQBJECT FILE NUMBER OF RECEIVING QUEUE Oodle mul 
| (UNUSED IF COUNT ONLY IS REQUESTED) bay 

CTeAGCVERB BIT 
/ 9 0 = RETURN FILE NAMES - 
( 1 °° RETURN FILE COUNT ONLY 
1-3 000 - MFIO OR MF IC/F ID 


001 =~ MFID/= 


ao 

thes 4S 0 - =/MFIC UR =s" * 
( | OlL - =/= 
\e-11 0 UNUSED 


CT. “24 BIT BASE RELATIVE ADDRESS OF 30 CHARACTER @ 


NAME FIELD (10 CHARACTER PACK.I[D OR UNIT» 10 7 
Sema, 


CHARACTER MF IDs» 10 CHARACTER FIC). 


CT.2 26 BIT BASE RELATIVE ADDRESS OF COUNT. 
INPUT - COUNT OF FILES TO BE SKIPPED ft. . anony ' 
OUTPUT - COUNT OF FILES FOUND 7a inci anny SY 
REINSTATE. pear VALUES | 
GOOD CUMMUNICATE 
Pte QUEUE FILE OVERFLOW 
| i 


i 


NO FILES WERE FOUND 

PACK OFF LINE f 
QUEUE MECHANISM =~ NO MEMORY~--- > OF 
QUEUE MECHANISM -- NG BUFFERS~ 9 02 
QUEUE MECHANMSM -~- INVALID KEY- | , 
QUEUE MECHANISM ~~ IRRECOVERABLE ay ERROR / 


UW 
mud t aww ow 


FREEZE/THAW AUN STRUCTURE = CT-VERB 33° 


FREEZE/THAW RUN STRUCTURE 


CT.VERE 35 
CT.OBJECT 811 0 CHIGH ORDER BIT) 
 O=THAW 


id= FREEZE 
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COMPILE CARD INFORMATION - CIevERE 36 


“COMPILE CARL INFORMATION 


CT. VERE. 356 


48 BITS SDL DESCRIPTOR CWHERE TC PuT INFO) IN FORMAT 3 
16 BITS=LENGTH = 
24 BITS=ADDRESS 


RETURNS COMPILE CARD INFG IN FULLOWING FORMAT 3 
#CHARS INFO 


39 OBJECT NAME | 

02 EXECUTE TYPE 

10 PACK. NAME OF. THE RUNNING PROGRAM 
30 INTERPRETER NAME OF THE RUNNING PROGRAS 

10 INTRINSIC NAHE CFAMILY) 

02 PRIORITY 

06 © SESSION NUMBER 

06. JOH NUMBER 

20 “ASF & 2ND NAMES OF RUNNING PROGRAM 

07 CHARGE NUMBER © 

01 FILLER © 


36 BITS DATE AND TIME COMPILEC 
04 BITS FILLER © 


19 USERCODE 
10 PASSWORD 
04 PARENT JOB NUMBER | 
20 PARENT QUEUE IDENTIFIER 
| Ob LOG SPO 
04 — SECONDS BEFORE DECAY Ce 
01 PRIVILEGED | F¥ 


“DYNAMIC MEMORY BASE = CT.VERY 37 


DYNAMIC MEMOKY BASE 
 -CT.VERE 37 
VALUE 1S RETURNED IN COMMUNICATE MESSAGE PUINTER AS 

SELF RELATIVE DESCRIPTOR 
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BEMOKY DUMP TO Disk = CTeVERB 38 


HEMCRY CUMP TO DISK 


CT.VERE 


38 


GEI SESSION NUMBER = CI.vERB 33 


GET SESSION NUMBER 


CT.VERE 


SESSION [3S PUT INTU RS-REINSTATE.MSGPOINTER 


DCeINITIATESIO = CI-VERS 40 


DC. INITIATE.I0 
CT.VERE 40 

24 BITS PORT 
24 BITS CHANNEL 


24 BITS 


BASE RELATIVE ADDRESS UF I/0 DESCRIPTOR 
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NOL/MACRO COMMUNICATES - CT.VERB 41 


NDL/MACRO COMMUNICATES 


CT«VERE 41 
~~ CT.QBJECT INDICATES FUNCTION 
 peESsC1 | BIT 1748 9 MESSAGE ARCA 1 
~—~PESC2 BIT 49°96 MESSAGE AREA 2 


QUEVE.PTR BIT 97-106 REMOTE FILE NUMBER» STATION NUMBER» GR 
— QUEUE“FILE*FAMILY ELEMENT NUMBER 


OCWRITE 
CCWRITE 
CT.OBJECT 11 
DESCI RESULT AREA 
DESC2  DC.WRITE MESSAGE 
NOTE: NUMBER AT SUBSTRCDESC2»s 602) IS MESSAGE TYPE 


4O0=FINISH UPEN 
4L=NDL/MACRO PRESENT 
- 4&2=ATTACH STATIONS TO REMOTE FILE 
—&43=DETACH STATIONS FROM REMOTE FILE , 
44=RELEASE LINE CNUMBER AT SUBD TT CORSE ce oneley 
IS PORT: CHANNELZ ADAPTER) | 
PORT =SUBBITCDESC296493) 
CHANNEL=SUBBIT(DESC2 967» 4) 
ADAP. TER=SUBBITCDESC2 57264) 
45=CONVERT LSN TO STATION NAME OR VICE VERSA 
46=FINISH GPEN C(COBOL74) | 
47=EXPLICIT CREATE“QUEUVE 
48=ENABLE/DISABULE KEPLY 
49=EXPLICIT REMOVE~QUEUE 
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QUICK QUEUE WRITE CREMOTE FILES) 


QUICK QUEUE WRITE (REMOTE FILES) 


CT. OBJECT FUNCTIGN=12 


DESCI ' MESSAGE HEADER 
DESC2 MESSAGE 
RMT.FL 7 nea Pee TO WHICH THE MESSAGE IS OESTINED 


CDESCI) CAT (DESC2) 1s written to the specified remote file 
input queues» or directly to the application's read buffer if 
it is in memory» waiting an incowring message and the queue 
has no other messages in ite 
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On wen nem coe am 


—GUEUE WRITE CSTATION QUEUE) 


ssw nee Ne eee mate 


CT.QBJECT FUNCTIUN=13 


CESC1I MESSAGE HEADER 
DESC2 HESSAGE 
ST.NR STATION NUMBER 


(OESC1) CAT COESC2) is written to the top of the network 
controller's “STATION, QUEUE". QUEUE.FAMILY element is 
specified by ST.NR. : >: | 


 @UEUE WRITE CANY CUEUE) 


QUEUE WRITE CANY QUEUE) 
CT<OBJECT FUNCTIUN=14 
 DESC1~ MESSAGE HEADER 

DESC2 MESSAGE 
— G@eELEMENT «= Q-FAMILY ELEMENT 


COESC1) CAT CDESC2) is written to the specified FPB.NUM GUEUE 
FAMILY» ELEMENT #Q. ELEMENT. | 


GENERAL £12 08J JECT LAYOUT FOR QUEUE WRITES — 


CTs OBJECT  : | 
BEEN.THRU , BITC1) MCP use onlys must be 
: | set to 0 Dy program. 
FILLER | BITC2). be | 
REPORT.Q.FULL BITc1) Functions 13 ang 14 ontlye. 
WRITE-TO.TOP.OF.Q BITC1) Always done for 
a Sy 3 | | function=13. 
 FPB.NUM | BITC11) 7 


FUNCTION | BITC a8) 125 139 or 14 
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ACCESS USERCCDE EILE = CIeVERE 42 


ACCESS USEKRCOOUE FILE 


™ G2 Gb > ao ei aun an eu cilalos = = we 


CTeVERE 
VESC 


42 
BIT 0-47 DESCRIPTOR TO PARAMETER LIST. 


PARAMETER LIST LAYOUT 


MOCE 
0 


AST 


wm oO 


10° 


i1 


BIT (4) 

SET ALL PARAMETERS IN LIST EXCEPT USERCODE AND 
PASSWORD. THESE MUST BE SUPPLIED TO FIND 
“CORRECT ENTRY. 

SET ALL PARAMETERS IN LIST EXCEPT INDEX. INDEX 
MUST BE SUPPLIED TO FIND ENTRY. 

SET OVERRIDE. USERCODE MUST SE PRESENT: TO FIND 
“ENTRY. THE OVERRIOE FIELD FOR ALL OCCURRENCES oF 
THIS USERCODE WILL BE SET. 

SET OVERRIDE. INDEX MUST BE SUPPLIED TO FINO ENTRY. 
THE OVERRIDE FIELD FOR ALL CCCURRENCES OF THIS © 
USERCODE WILL BE SET. | 

ADO ENTRY. ALL FIELOS HAVE TO BE SUPPLIED- 


DELETE ENTRY. | USERCODE AND PASSWORD MUST BE 


SUPPLIED TO FIND ENTRY. 


INITIALIZE ALL OVERRIOE BITS. 
| CHANGE BY USERCODE. ALL ENTRIES FOR A GIVEN USER= 


“CODE CAN BE CHANGED WITH ONE CUMMUNICATE. USER- 
CODE MUST BE PRESENT. PACK FIELD MUST NOT BE 
EFQUAL TO ZERO TO CHANGE I[T. CHARGE NUMBER MUST 
NOT BE EQUAL TO ZERO TO CHANGE IT. PRIORITY MUST 
NOT BE EQUAL TO ZERO TQ CHANGE IT. CHARGE NUMBER 
CAN BE CHANGED TO ZERO BY SETTING IT TO A NUMBER 
LARGER THAN 9999999. 


“DELETE ALL RECORDS FOR A GIVEN USERCODE. USER- 


CODE MUST BE PRESENT. | 

SET ALL PARAMETERS IN LIST EXCEPT USERCDDE AND 
PASSWORD. ONLY USERCODE HAS TO BE SUPPLIED 
BECAUSE SEARCH STOPS ON FIRST ENCQUNTER OF 
GIVEN USERCQDE. 


CHANGE BY INDEX. INDEX MUST 8E PRESENT. 


PRIGRITY CAN BE CHANGED BY SETTING FIELD TO NON- 
ZERQe CHARGE CAN BE CHANGED BY SETTING CHARGE 
FIELD TO NON“ZERQ. PASSWORD CAN SE CHANGED BY 
SETTING PASSWGRD TC NON“ZERO.] CHARGE NUMBER 
CAN BE CHANGED TO ZERO BY SETTING [IT TO A NUMBER 
LARGER THAN 9999999. 

CLEAR rats OVERRIDE FIELD FOR ALL OCCURRENCES OF 
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THIS USERCOCE. USERCOCE MUST BE SUPPLIED. 
12 CLEAR PACK OVERRIDE 8ID FOR ALL eee er OF THIS , 
USERCODE. INDEX MUST BE SUPPLIED. i | 


INDEX BIT (10) 
USE RCODE CHARACTER (10) 2 
WHEN SET BY PROGRAM CMUCE = O» 2» G+ Sr 7» Br 9» 1195 
THE USERCODE MAY OR HAY NOT CONTAIN PARENTHESES. 
IF PARENS ARE NOL FOUNO> ONLY THE FIRST EIGHT 
USED. _ 
WHEN SET BY MCP CMUDE = 1) 
a USERCOOE WILL ALWAYS CONTAIN PARENTHESES. 

PASSWORD CHARACTER (10) 

PACK NAME CHARACTER (10) 

CHARGE # BIT (24) 

PRIORITY BIT (4) 

PRIVILGO BIT (1) 

PusLIc = BIT (1) 2 fy 
-GVERRIDE BIT GQ) Secuen Lavell aw | ote 
~ REINSTATE-MSG-PTR VALUES 
0 NG ERRORS. 

1 ERROR ON INPUT: EITHER INDEX IS WRONG OR 
USERCODE/PASSWORD IS NOT PRESENT. 
2 "(SYSTEM)/USERCODE™ FILE NOT IN "US" SLOT. 


£4 4 eX 

O % Py rr he ye ¥ 
nos nf 

ay . a J Nagi / 


% 
py ) Ps | 
LA poo A ou j 
“ iv) i. ae | ‘ Es a fe 
, f 
f A 
{ } 
| 
ewe A AG 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 


LPC CALL - Cle 


ve 


VERB 43 
IPC CALL 
CT.VERE 4s 
CT.OBJECT 0 © CALL 
| 1 = CANCEL 
| | 2 © EXIT PROGRAM (NO EuJ) 
CT.ADVERK = BIT i 
0 = IF CALL» RETURN UN NG MEMORY 
| 1-11 - NO USED 
CT BASE RELATIVE AOCRESS OF A 30 CHARACTER 
FIELD THAT CONTAINS THE NAME GF THE JOB 
TO BE CALLED OR CANCELLED. 
CT.2 NUMBER OF PARAMETERS TO BE PASSED 
REINSTATESMSGePRT : | 


OQ COMMUNICATE COMPLETED AS REQUESTED 
1 FOR EXIT = 


PROGRAM DOING COMMUNICATE WAS EXECUTED? 


NOT CALLED. 


PROGRAM CALLER 


Samana GQhamanane 


CT.VERSG 
48 BITS 


44 

SOL DESCRIPTOR 

24 BIT LENGTH OF TEXT 

24 BIT BASE RELATIVE ADDRESS OF TEXT 


REINSTATEMSGPIR VALUES 


~0 NO ERRORS 
CONTROL CARO ERROR IN, TEXT 
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SIACK SIZE CHANGE = CT.VERB 45 


Be sie 


STACK SIZE CHANGE 


‘ 
v 
mm Den eh a ee ee ee we a Oe eR ee a ot ae 


CT.VERE6 
CT-QHJECT 


45 


CODEFILE-RELATIVE DISK ADDRESS OF NEW SPAD 


“LOAD.CUMP MESSAGE = CIAVERB 46 


_LOAD.OUMP MESSAGE 


CTA.VEREB 
CT.G8JECT 
CT ADVERS 


46 | 
| BASE RELATIVE ADDRESS UF MESSAGE 

BIT | 

0 1=LOADED O=0DUMPEC CIF LOAD. DUMP) 

1 O=LOAD.CUMP 1=COPY : eat 
2 O=LIBRARY UPDATE» i=ERROR CIF COPY) 


3-il NOT USED 


BURROUGHS CORPORATION 


COMPUTER SYSTEMS GROUP 
PLANT 


SANTA BARBARA 
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COMPLEX WAIT - CI.VERE 47 


COMPLEX WAIT CMICRG MCP) 


_CT.VERB 
CT.OBJECT 
CT.ADVER 


CT.1-ETC. 


47. 


NUMBER OF | 
FIRST EVENT TO CHECK CCHECKED IN CIRCULAR 


EVENTS 


FASHION FROM TEIS PCINT). 


BIT ENCODED EVENTS CNUMBER SPECIFIED BY CT.OSJECT 


O- 3 
4- 7 
8-15 
16°24 


EVENT 


MAX=15). 


EVENT TYPE 

EVENT PARAM1 
EVENT PARAM2 
EVENT PARAMS 


1 
2 


TYPES: 
0 - NULL - PARAM1 5253 


> NOT USED 

SPO INPUT PRESENT = PARAM12223 * NOT USED 
TIME = PARAM1I»2»3 = CONCATENATED BIT 20 
FIELD CONTAINING THE LENGTH OF TIME TO 
WAIT IN 1OTHS GF A SECOND 

READ OK =PARAM1: NOT USED» PARAM2: 

FILE NUMBER» PARAM3: MEMBER NUMBER IF FILE IS 
Q-FILE“FAMILY 

WRITE OK - PARAM1 52242 SAME AS READ OK: 
QUEUE WRITE GCCURRED - PARAML: NOT USED» 
PARAM2: FILE NUMBER OF Q-FILECFAMILY>» 
PARAM3: NOT USED 


6 = DATA COMM 10 COMPLETE - PARAM1»2532 NOT USED 
REINSTATE.ASGePTR VALUES 
ZERO RELATIVE INDEX TO THE COMMUNICATE EVENT LIST ELEMENT 
WHICH IS COMPLETE 


BURROUGHS CORPORATION 
"COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT | 


HESSAGE SQUNT - CT.VERB 48 


“MESSAGE COUNT 


2 CT. VERB, | 
CT. OBJECT 
alate ial 


a 
—CT22 
FUNCTION | 


48 


62784 


’ eabawe CONF LOENTIAL 


acP COMMUNICATES AND STRUCTURES | 


900 2219 0144 SEC. ip 
{ 
FILE.NUMBER 
0 DECIMAL FORMAT RESULTS IF TRUE 
COBOL C"PIC 999") 
ELSE BINARY CBIT (24)) 
1-11 -) 


~~ RESULT FIELD LENGTH | 
BASE RELATIVE RESULT FIELD ADDRESS 


RETURN THE COUNT OF THE MESSAGES CONTAINED 
IN THE. QUEUE“FILE SPECIFIED. IF THE OBJECT 
IS A QUEVE"“FILE-FAMILY» THE COUNT WILL BE 
RETURNEC AS A LEFT“JUSTIFIED ARRAY OF 
24-BIT COUNTS» ONE FOR EACH MEMBER OF 


THE FAMILY. 
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CTaVERE 49 - UNUSED 


RECOVERY COMPLETE = CI.VERB 30 


RECOVERY COMPLETE 
CT. OBJECT | | | 
DATA BASE GLOBALS BASE RELATIVE BIT ADORESS 


GET-ATIRIBYTES = CI-VERB 51 


GET-ATTRIBUTES | 


CT.VERE 51 oe 
CT.OJECT FILE NUMBER 
CTeAQVERB COMMUNICATE LEVEL CMK 8.0 & BEYOND LEWEL=2) 


CT.1 TOTAL ATTRIBUTES 
CT.2 BASE RELATIVE ADDRESS OF ATTRIBUTE LIST 
CT.3 TYPE FOR ANSWER 

0 = BINARY 

1 = HEX. 

2 = DECIMAL 


NOTE: SEE SECTION [f¥ CSG STANDARD FILE ATTRIBUTES FOR 
THE LIST OF IMPLEMENTED ATTRIGUTES. 
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“ GHANGESATIBIGUTES = CI.VERS 52 


CHANGE -ATTRIBUTES 
CT.VERE = 52 | 
CT.OBJECT FILE NUMBER 
CTsADVERE «COMMUNICATE LEVEL (MK 8.0 & BEYOND LEVEL=2) _ 


CT.1 TOTAL ATTRIBUTES 
CT-2 °#£BASE RELATIVE ADDRESS OF ATTRIBUTE LIST 
oe Oe TYPE FOR NEW DATA 

O = BINARY 

1 = HEX © 

2@- DECIMAL 


NOTE: SEE SECTION IV CSG STANDARD FILE ATTRIBUTES FOR 
THE LIST OF IMPLEMENTED ATTRIBUTES. — 
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COBOL74 DATA COMMUNICATIONS (CT.VERB - 53 


CT.VERE = 53 
CT»OBJECT : 
CT.DOEST.NUMBER BITC1L2) Z MUST BE ZERO WHEN CT. IS. 
RECEIVED BY MCPs USED BY MCP 
TO KEEP UP WITH THE ELEMENT 
NUMBER OF THE USER'S DESTINATION 
TASLE THAT WAS LAST/IS CURRENTLY 
BEING SERVICED ON A SEND 02 
ENABLE/CISABLE OUTPUT. 


NMNNMMN NNR HR 


CT.VARIANT = BIT(12) 


VALUE MEANING 

ACCEPT MESSAGE CUUNT | 

RECEIVE CVARIANTS:S MESSAGE Co» SEGMENT )) 
RECEIVE INITIAL INPUT 

ENABLE INPUT 

ENABLE OUTPUT , 

SEND CVARIANTS: CESI»] EMI [Es EGI» NONE)) 
DISABLE INPUT 

DISABLE QUTPUT 


sw OUI S&S wN & © 
hua’ Hu hon 


CT-ADVERB 


BIT MEANING 
O-1 = UNUSED 
2 - REPORT/RETURN INCOMPLETE I70 (NO DATA) 
3-8 - UNUSED | 
9 - A DISABLED WAS DESTINATION ON A SENDS BLT 
SET/USED BY MCP ONLY. | | 
10 = PROGRAM HAD AN INVALID DESTINATION ON A SENDS 
| BIT SET/USED BY MCP ONLY. | 
11 - "BEEN. THRU" BOULEAN» MEANING SOME HCP 
INITIALIZATION HAS BEEN DONEs BIT SET/USED 
| 3Y MCP ONLY. 
CT.1 | - 


BIT. MEANING 


0 - C™SEGMENT™ SPECIFIED ON RECEIVE] CELSE "MESSAGE™) 
bo = "TERMINAL" SPECIFIED ON ENABLE/DISASBLE 
2 - CT.4» CT.5 PAIN PRESENT CTHEY ARE OPTIONAL.) 
3 O = SKIPPINGs 2 = SPACING CBOTH USE CT.! 
BITS 12°19) 
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j 


4  @ 9 = SKIP/SP ACE BEFORE» 1 = “AFTER (ON SEND) 
5“11 - unused _. 
12“19- B-3I1T SKIPPING/SPACING VALUE CSEND ONLY) 
FOR ade 
1799. = SKIP TO THIS CHANNEL 
=6©C"PAGE" = CHANNEL 1) 
(NO PROVISION FOR “SKIP To NEXT CHANNEL) 
O» 1007255 = CINVALID) 
FOR SPACING: hist 
| <NUMBER OF LINES TQ SPACE> (0°255) 
207237 4701IT ENDING INDICATOR VALUE CSEND. ONLY) 


QO = NONE CINVALIDI 
1 = ESI {END OF SEGMENT INDICATOR=-~INVALID) 
| 2 = EMI CEND OF MESSAGE INDICATOR) 
| -.  - &~—  EGE)~—OCEND. OF GROUP INDICATOR“--INVALID] 
CT.2 | - % CD BIT LENGTH | 
CT. 4 % CD BASE-RELATIVE ADDRESS 
CTo4 | | % DATA COR PASSWORD) BIT LENGTH 
CT.5 : Z DATA COR PASSWORD) 


| % BASEWRELATIVE ADDRESS 
REINSTATE.MSGePTR WALUES | 


0 = GOOD SEND/RECEIVE 
1-2 = UNUSED 


3 = INCOMPLETE I/O (NO DATA) 
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, 


EXPANDED EILESOPEN = CT-VERB 54 


EXPANDED FILE-GPEN COMMUNICATE 


CT.VERE 54 
CT.OC8JECT FILE NUMBER 
CT-AOVERG BIT 


0 REPORT«FILEsMISSING 

1 REPORT. FILE.sLOCKED 

2 REPORTeEXCEPTION CSECURITY ERRORS) 
3-11 - 


CTHE OPEN TYPE IS TAKEN FROM THE FPBeADVYERS AND 
FPBsEXPANDED. ADVERB FIELDS) 


CT.1 LENGTH OF USERCODE/PASSWORD FIELO CIF GPENLON.BEHALF. OF) 
CT.2 BASE“RELATIVE ADDRESS OF USERCODE/P ASSWORD FIELD 
CIF GPEN.ON. BEHALF .OF ) 
CT.3 | FILE NUMBER GF RPG Ti ‘USE FOR OPEN OF MULTI“FILE 
TAPE FILE. 
REINSTATE.NSGePTR: VALUES. 
0 .- SUCCESSFUL OPEN. 


A: FILE MISSING: CINPUT DISK) 
“ PACK NOT PRESENT COUTPUT DISK) 
NO MORE FILES ON MULTI“FILE REEL CTAPE) 
FILE LOCKED COISK) 
NOs” IF OGPEN.ON.BEHALF.G6F 
' NO USERCODE FILE ON DISK CNOT IN NAME TABLE) 
INVALIO USERCODE/PASSWORC COMBINATION 
, VIOLATES USERCODE NAMING CONVENTIONS 
- SECURITYTYPE ERROR 
SECURTITYUSE ERROR 
“REQUESTED FILE IS AN EXECUTE-ONLY CODE FILE 
FILE WILL BE DISCARDED ON CLUSE LOCK OR CLUSE 
REMOVE, BUT WAS- OPENED 


COWAU SW BM 


THE FILE IS OPENED FUR VALUES OF 0 AND 9> AND NOT OPENEO FOR ALL 
OTHER VALUES. | 
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sey 


ACCESSsGLOBALS = CTeVERS 55 


ACCESS GLOBALS 
CTeVERE 8 55 © | | : “> 4 
CT.»OBJECT O - CT.3 CONTAINS AN ABSOLUTE MEMORY ADDRESS © 
| ‘A > HINTS (CT.3) WILL BE USED AS AN ‘OFFSET 
INTO HINTS) 
= RS.NUCLEUS 
- 10AT | 
- DCHeSCRATCH.MEM 
- PACK. INFO.TABLE 
- SPO.SQ 
| - DISK COLDSTART VARIABLES 
CT. ADVERB FOR CT.o8JECT = 2 | 
Me a 0 = RETURN ALL RUN STRUCTURE: NUCLE II 
1 = RETURN ‘RUN STRUCTURE OF THE JOB WHOSE JOB 
NUMBER IS IN CT.3- CT.3=0 MEANS OWN JOB 
CT. ADVERB FOR CT.OBJECT = 3 
a: Q = CTs3 CONTAINS AN OFFSET INTO THE IOAT. 
: RETURN FROM OFFSET TO END. 
RETURN THE IOAT ENTRY ASSOCIATED WITH THE 
-, FILE NUMBER IN CT.3. 
2 = RETURN THE IOAT ENTRY REQUESTED BY PORT 
(CHANNEL) UNIT IN CT.3. 
CT. ADVERB FOR CT.OBJECT = 7 
0 = RETURN A COMPLETE copy OF THE DISK COLDSTART 
| VARIABLES. 
“1 to 29 = RETURN A COPY OF THE L-RELATIVE FIELD NUMBER. 
“SPECIFIED IN CTsADVERS FRUM THE DISK COLOSTART 
a? et -- WARITABLES RECORD. 
eth AND -CT2 BASE RELATIVE SDL DESCRIPTOR WHICH SPECIFIES 
. THE RECEIVING FIELD IN THE PROGRAM. 
ct. 3 DEFINED IN CT.OBJECT. AND CT.AOVERS 


1 


"3 tee REINSTATE=MSG- PTR WILL BE ZERO WITH THE FOLLOWING EXCEPTIONS: 


CTsOBJECT = 2 and CT.ADVERB = 0 WILL CONTAIN THE NUMBER OF 

nn ae 3 JOBS IN THE MIX. 

2 WILL CONTAIN 1 IF THE RE- 

| QUESTED J08 IS NOT IN THE 

eG 3 Re | MIX. 

CT.QBJECT = 3 and CT.~ADVERB = 1 or 2 

. | eo | WILL CONTAIN A 1 IF THE RE- 

QUESTED IGAT IS NOT THERE OR IF 
THE FILE IS NOT OPEN WITH 
CT.-ADVERS = 1. 


it 
i 


CTeQHJECT = 2 and CT.ADVERB 
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ANDEXED SEQUENTIAL POSITION - CT-VER 56 


INDEXED SEQUENTIAL POSITION 
CT.VERE 56 

CT.CBJECT FILE NUMBER 
CT.ADVERS BIT 


0 a 
1 REPORT TO USER ON PARITY 
2 er ee 
3 RESULT MASK FIELDS PRESENT 
4-5 7 | 
6-7 RELATIONAL GPEKATOR 
0 EQUAL TQ 
1 GREATER THAN 
2 NOT LES THAN (> 1 =) 
8-10 SELECTION ConwCITION 
Q NEXT 
i PRIOR 
2 FIRST 
gis LAST 
— & NEXT AT 
5 CURRENT 
6 At 
7 RANOOA 
11 = 
CTei LENGTH OF RESULT MASK 
CT.2 © ADDRESS. OF RESULT MASK 
CT.3 = | 
CT.4 . | 
CT.5 STRUCTURE NUMBER 
CT.6 KEY ADDRESS 


CTe7 KEY LENGTH 
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INDEXED SEQUENTIAL READ 
CT.VERB 57 
CT.OBJECT FILE NUMBER 
CT.AOVERS BIT 
0 REPORT TO USER ON EOF 


1 REPORT TO USER ON PARITY 
2 =~ . 
3 RESULT MASK FIELOS PRESENT 
Ge 5a 
6-7 RELATIONAL GPERATOR 
0 EQUAL TO 
1 GREATER THAN 
a a NOT LESS THAN (> 1 =) 
6-10 SELECTION CONDITION. | 
: QO NEXT 
1 PRIGR 
2 FIRST 
3 LAST 
4& NEXT AT 
5 CURRENT 
6 AT 
aan RANDOM 
| _ | 11 ##- 
CT.1 ‘ LENGTH OF RESULT MASK 
CT.2 ADDRESS OF RESULT MASK . 
CT.3 LOGICAL RECORD LENGTH 
CT.4 : LOGICAL RECORD ADDRESS 
CT.5 STRUCTURE NUMBER 
CT.6 KEY ADORESS 
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INDEXED SEQUENTIAL WRITE - CI.VERE 58 


INDEXED SEQUENTIAL WRITE 
CT VERE 58 

CT-O8JECT FILE NUMBER 
CTeAOVERB BIT 


0 REPORT TO USER UN EOF 
Al REPORT TO USER ON PARITY 
2 ed) 
3 RESULT MASK FIELDS PRESENT 
4-11 
CT.1 LENGTH OF RESULT MASK 
CT.2 ADDRESS OF RESULT MASK 
CT.3 LOGICAL RECORD LENGTH 
CTo4 LOGICAL RECORD ADDRESS 
CT.5 STRUCTURE NUMBER 


CT .6 KEY ADDRESS 
CT.7 a : 


me 2-h4a 
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| INDEXED SEQUENTIAL sEvRITE = CIeVERB 59 


INDEXED SEQUENTIAL REWRITE 
CT.VERE 59 

CT .OSJECT FILe NUMBER 
CT-ADVERB BIT 


Gg << ae | 
1 | REPURT TO USER ON PARITY 
a _ 
3 - RESULT MASK FIELDS PRESENT 
4-11 | 
CT el - LENGTH OF RESULT MASK 
(CTe2 © ADDRESS OF RESULT MASK 
CT.3 LOGICAL RECORD LENGTH 
Tea LOGICAL RECORD ADDRESS 
CT. STRUCTURE NUMBER 
CT.6 KEY AOCRESS 


CT.7 
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INDEXED SEQUENTIAL DELETE 
su esa anwantaweanatbawn aan aananaanae 
CTWERE | 60 

CT GBJECT FILE NUMBER 
CT.AOVERS BiT 


OQ - 
i REPURT TO USER ON PARITY 
2 - 
3 RESULT MASK FIELDS PRESENT 
| 4-11 =°- 
CT.1 LENGTH OF RESULT MASK 
CT.2 - ADDRESS OF RESULT MASK 
CT.3 = ‘ | 
“CTe4 = 
C1.5 STRUCTURE NUMBER 
CT .6 KEY ADDRESS 


CT.7/ 
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RELATIVE 170 COMMUNICATE - CI-VERB ol 

CMICRO MCP) 


RELATIVE I/O COMMUNICATE - START 
— CT.VERB 61 a 

CT.OBJECT FILE NUMBER 
CTeADVERB. BIT 


0 REPORT TO USER ON EOF 
4 REPORT AND RETURN TO USER ON PARITY 
2 REPORT AND RETURN TO USER CINCOMPLETE I17)) 
3 ~ RESULT MASK FIELO PRESENT 
475 
677 RELATIONAL OPERATOR 
0 © EQUAL TO © 
1 GREATER THAN 
as 2 NOT LESS THAN 
gee | 
CT.l - LOGICAL RECORD BIT LENGTH 
CT.2 , LOGICAL RECORD BASE RELATIVE BIT ADDRESS 
CT-3 ACTUAL BINARY OISK KEY CRELATIVE KEY) 
oo | SUPPLIEL BY USER 
CT. fo 
' C165 LENGTH IN BITS OF RESULT MASK FIELD 
CT.6 BASE RELATIVE ADORESS OF RESULT MASK FIELD 
«RE INSTATE.MSG.PTR 
| : 0 - GOOD READ 
1 END OF FILE 
2 1/0 ERROR 


. 3 INCOMPLETE 1/0 
| -CADLITIONAL ITEMS FOR FILE STATUS OEFINED IN THE SEQUENTIAL 
_ FILES DESIGN SPECIFICATION) 
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RELATIVE 1/0 CUMMUNICA IE WRITE -~ CIeVERB 62 


RELATIVE [70 COMMUNICATE ~ WRITE 
CT.VERB 62 

CT-O8JECT FICE. NUMBER 
CT.ADVERS BIT 


0 REPORT TO USER ON EOF | 
i REPORT AND. RETURN TO USER ON PARITY 
2 REPORT AND RETURN TO USER ee Se 1/3) 
5 RESULT MASK FIELD PRESENT 
4 ACCESS TYPE 
0 SEQUENTIAL CNEXT) 
1 RANDOM CAT KEY) 
271i 6 
CT.l LOGICAL RECORD BIT LENGTH 
CT.2 LOGICAL RECORD BASE RELATIVE 817T ADDRESS 
CT.3 ACTUAL BINARY OISK KEY FOR RANDOM UR DYNAMIC 


FILES CSUPPLIED BY USER; NOTHING If IN 
SE SCN TAAL MODE) 


CT.4 
CT.5 - LENGTH IN BITS OF RESULT MASK FIELD 
CT.6 BASE RELATIVE ADDRESS UF RESULT MASK FIELD 
REINSTATE.MSG.PTR | 

O 6C0OD READ 

1 END OF FILE 

2 I/O ERROR 
3 INCOMPLETE 1/0 


CADDITIONAL ITEMS FOR FILE STATUS OEFINED IN THE SEQUENTIAL 
FILES CESTIGN SPECIFICATION) 
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RELATIVE 120 COMMUNICATE REWRITE - CYe-VERG 63 


RELATIVE ‘Lo COMMUNICATE - REWRITE 
CT. VERE 63. 

CT.OBJECT FILE NUMBER 

CT.ADVERB BIT 


0 REPORT TO USER ON EOF 
1 REPORT AND RETURN TO USER ON PARITY 
2 — REPORT AND RETURN TO USER CINCOMPLETE 1/0) 
3 «RESULT MASK FIELO PRESENT 
4 ° ACCESS TYPE | 
0 SEQUENTIAL (NEXT) 
1 RANDOM CAT KEY) 
| Sekt 
CT.el LOGICAL RECORD BIT LENGTH 
CTs2%, - LOGICAL RECORD BASE RELATIVE BIT ADDRESS 
—CT.3 ACTUAL BINARY DISK KEY FOR RANDOM OR DYNAMIC 


FILES CSUPPLIED BY USER? NETRING IF IN 
SUE EAR MODE) | 


OTe 
i *6Nss | LENGTH IN BITS OF RESULT MASK FIELD | 
— CT+6 BASE RELATIVE ADDRESS OF RESULT MASK FIELO 
a RELNSTATE«NSG.PTR 
0 GOOD READ 
1 END OF FILE 
2 1/0 ERROR 
3 INCOMPLETE 1/0 


- CADUDITIONAL ITEMS FOR FILE STATUS DEF INEO IN THE SEQUENTIAL 
FILES DESIGN SPECIFICATION) —— 


: THE REWRITE COMMUNICATE WILL BE ESSENTIALLY THE SAME AS | 
THE WRITE» BUT WILL HAVE A DISTINCT MEANING IN LOGICAL [7/0 


cu 4s 
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SANTA BARBARA 


PLANT 920 2219 O144 SEC. If 


RELATIVE 170 COMMUNICATE DELETE = CT-VERB O4 


RELATIVE 1/70 COMMUNICATE ~- DELETE 


CT.VERE 
CT.CBJECT 
CT.AODVERB 


CT.1 
CT.2 


CT.4 
CT.5 
CT.6 


64 
FILE NUMBER 
BIT 
Oo - REPORT TO USER ON EOF . 
i REPORT AND RETURN TO USER GN PARITY 
2 REPORT AND RETURN TO USER CINCOMPLETE 1/7) 
3 RESULT MASK FIELD PRESENT 
4, ACCESS TYPE 
QO SEQUENTIAL CNEXT) 
1 RANDOM CAT KEY) 


S-i1. = 


ACTUAL BINARY DISK KEY FOR RANOCM OR DYNAMIC 
FILES (SUPPLIED BY USERS NOTHING IF IN. 
SEQUENTIAL MOCE) 


LENGTH IN BITS OF RESULT MASK FIELD 
BASE RELATIVE ADCRESS OF RESULT MASK FIELD 


 REINSTATE.MSG.PTR: 


CADCITIONAL 


0 GOOD READ 
1 €ND OF FILE 
: 1/0 ERROR 


INCOMPLETE I/70 
ITEMS FOR FILE STATUS DEFINED IN THE SEQUENTIAL 


FILES CESIGN SPECIFICATION) 
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RELATIVE Iz0 ¢ OMMUNICATE READ = CIsVERE 65 


RELATIVE I/0 COMMUNICATE - READ 
«CC TSVERE 65 

CT.OBJECT FILE NUMBER 
CT.ADVERB BIT | 
REPORT TO USER ON EOF 


0 
1 REPORT AND RETURN TO USEK ON PARITY 
2 REPORT AND RETURN TO USER CINCOMPLETE I/O) 
3 RESULT MASK FIELO PRESENT 
4 ACCESS TYPE 
0 SEQUENTIAL (NEXT) 
1 RANDOM CAT KEY) 
a — §*1ll. - 
CT. LOGICAL RECORD BIT LENGTH 
CT.2 LOGICAL RECORD BASE RELATIVE BIT ADORESS 
CT-3 = ACTUAL BINARY DISK KEY FOR RANDOM OR DYNAMIC 


FILES CSUPPLIED BY USERS NOTHING IF IN 
SEQUENTIAL MODE) 


CTe-5 LENGTH IN BITS OF RESULT MASK FIELD 
CT.6 BASE RELATIVE ADDRESS OF RESULT MASK FIELD 
| RETNSTATE.HSG. PTR 
| 0 GOOD READ 
1 END OF FILE 
2 I/0 ERROR 


3 INCOMPLETE 1/0 
CADDITIONAL ITEMS FOR FILE STATUS DEFINED IN THE SEQUENTIAL 
FILES CESIGN SPECIFICATION) 
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SEQUENTIAL REWRITE CMICRU HCP) - CI-VERS 66 


SEQUENTIAL REWRITE CMMCP) 

CT.VERE 66. 

CTeCBJECT FILE NUMBER 

CT.AOVERK BIT 7 | 

0 REPORT AND RETURN TO USER ON EGF 


1 REPORT AND RETURN TO USER ON PARITY 
2 REPORT ANO RETURN TO USEX ON INCOMPLETE I7/0 
a LENGTH ADDRESS PART I[S PRESENT FOR THE RESULT 
MASK | | | 

4711 °- 

CT.1 {LOGICAL RECORD BIT LENGTH 

CT.2 LOGICAL RECORD BASE RELATIVE BIT ADDRESS 

CT.3 RANDOM FILE ACTUAL BINARY KEY 

CT.4 as 

CT.5 LENGTH IN BITS OF RESULT MASK 


CT.6 BASE RELATIVE ADCRESS OF RESULT MASK FIELD 
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— INDEXEG/SEQUENTIAL OPEN - CI-VERS 67 


INDEXED/SEQUENTIAL OPEN 
CT.VERB «67 _ 
CT.CBJECT FILE NUMBER 
CT.ADVER8 BIT 


0 — - REPORT.FILE.MESSING 
1 | REPORT.FILE.LOCKED 
2  REPORT.EXCEPTIUN (SECURITY ERRURS) 
3-11 - | 


(THE OPEN TYPE IS TAKEN FROM THE FPS.ADVERB AND 
_aae  ~FPB-EXPANDED-ADVERS FIELDS) 
CT.1 | LENGTH OF USERCODE/PASSWORD FIELD 


CIF OPEN.ON.BEHALF OF) | | a 
CT.2 BASE RELATIVE ADDRESS GF USERCODE/PASSWORD FIELD 


CT.3 | OPEN STATUS ~ RESERVED FOR THE SMCP TO KEEP TRACK 
OF WHERE TO RESUME IF THE ENTIRE GPEN CANNOT BE 
COMPLETED. 
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ELOG HANOLER 

CTeVERG 3s 6B 

CTeOBJECT  BASE-RELATIVE ADDRESS JF RESULT STATUS FIELD 
| OF THE I/O DESCRIPTOR TO BE LOGGED 

CTeADVERS OEVICE PORT/CHANNEL/UNLT | 


PORT = 3 BITS 
CHANNEL = 4 BITS 
FILLER = 1 BIT (CMUST BE ZERO) 
UNIT | = 4 BITS 
CT.1 7 BASE“RELATIVE ADORESS. UF ERROR. INFORMATTON.TABLE 


CFORMAT DESCRIBED SELOW) 


THE REINSTATE. HSG-PTR ES NOT USEDsS THEREFOKE» ITS VALUES ARE 
UNUEF INE D> 7 


ERa Ce INFORMATION. TABLE FORMAT: 


DECLARE © | 
OL =ERWOR. INFORMATION. TABLE BITC 368)» 
7 02 LABEL | CHARACTERC 20 )> 
02 SERIAL.NUMBER CHAR ACTERC6) » 
02 RETRY.COUNT | BITC24)>» 
92 RETRY.RESULT.CODE BITC24)> 
02 REEL.NUMBER BIT(24)>» 
02 bLOCK.NUMBER : BITC24)» 


02 EXTENDED-RESULT | BITC64)> 


RESERVEC FOR BNA. 
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DECLARATIONS 


DISK AVAILABLE 


DEFINE 
DISK eAVAILABLE.DECLARATIUN AS# 
DECLARE | | 
01 CUMMY REMAPS DISK.AVAILASLE BIT(SEG.SIZE)» 
O02 AVL.~FOR.LINK DSK.ADR» 
02 AVL.BACK.LINK DSK.ADR» 
O02 AVL.SELF — DSK.ADR» 
02 FILLER BITC4)> 
02 AVL.BLOCK(C22)> | | 
03 AVL.ADDKESS DSKeADRe 
03 AVL.LENGTH WORDS #3 
y | 
x 
x 
PACK LABEL 


DEFINE PACK.LABEL-DECLARATION AS #2 
DECLARE O1 DUMMY REMAPS PACK.LABELZ 


» O02 PL.VOL1 CHAR (4) 2 "VOLI* 
» 02 PL.SERIAL.-NU CHAR (6) 2% SERIAL CCAN) NUMBER 
» O02 PLeACCESS.CUDE CHAR (1) % ACCESS CODE 
» O02 PL.ID | | CHAR (17) 2% PACK ID 
» 03 PL.NAME CHAR (10) 2% © 
» 03 FILLER — CHAR €7) 2 
° O2 PLeSYSTEMeINTERCHANGE CHAK €2) 2% SYSTEM INTERCHANGE/SCODE 
:  .% 00 = INTERCHANGE 
% 17 = B1700 INTERNAL 
% 35 = B3500 INTERNAL 
| a | % ETCr ETC» ETC | , 
. 02 PL.COUE. CHAR (1) 2% PACK CODE 00 = SCRATCH 
» O02 FILLER a CHAR (6) 2% 
Fd 92 PL GWNER. ID CHAR (14) Z 
» O02 PL.TYPE | CHAR (1) 2% "R* = RESTRICTED PACK 
% "yu" = USER PACK 
y "S"™ = SYSTEM.PACK 
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02 PLeCONTINUE 


BILE HEADER 
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CHAR (1) CUNTINUATION FLAG "C" 


? r4 
_ O2 FILLER CHAR €26) % 
» O2 PL.INT CHAR (1) 2% | 
ep O02 PL.VOL2 | CHAR €4) % "vOL2" 
9 02 PLeDATE~INITIALIZED CHAR (5) % | | 
» O02 PL-INIT.SYSTEM CHAR (6) 2% INITIALIZING SYSTEM 
» O2 PL.-DISK-OIRECTORY CHAK (8) 2% DIRECTORY ADDRESS 
» O2. PL»MASTER AVAIL CHAR. (8) 2% MASTER AOAILABLE TABLE 
» O2 PLeDISKeAVAILABLE © CHAR €8) Z% WORKING AVAILA3LE TABLE 
» O02 PL.INTEGRITY CHAR (1) % 0 = NORMAL 
os. - —. z ‘1 = RECOVERY REQUIRED 
» 02 PL-ERROR. COUNT CHAR (6) 2%. oe, 
» 02 PLeSECTORS.XD CHAR (6) % “REMOVED SECTOKS 
» O2 PL.~TEMP.TABLE CHAR (8) % TEMP TABLE LINK 
» O02 PL.PCD | CHAR €3) % LAST PORT» CHAN» DRIVE 
» O02 PL.-ASSIGNED.TO.8PS - CHAR (6) % ~ BASE PACK SERIAL NUMBER 
» 02 PL.SP. SEC «FLAGS | CHAR (8) % SPARE.SECTOR. TABLE FUR 225 DSK 
» 02 FILLER » 3 CHAR €23) © : 
a#>% 
y 4 
y 4 


"DEFINE DISK HEADER DECLARATION AS #DISK_HEADER_MAPC DISK_FILE_HEADER)&> 


- DISK_HEADER_ WAPCOISK 
DECLARE 

01 DUMMY REMAPS pIs 
02 DFH_AREA_ADOR 
or XOF FSET INTO 
02 OFH_FILE_TYPE 

: XTYPE OF FIL 
O2 OFH_SELF 

ZDISK ADDRES 

02 OFH_NG_USERS 


FILE_ HEADER) AS # 


K_FILE_HEADER> Oo 
_OFFSET B1TC16)> _ | 
THE OFH CIN BITS) FOR THE FIRST AREA AODRESS 
| | BITC8)» \b | 
E DESCRIBED BY THIS. HEAOER | 
DSK_ADR» 24 

S OF THIS HEADER | 

—BIT(8I» 6° 


YNUMBER OF USERS WHO HAVE THIS FILE OPENED 


02 DFH_USERS_OPEN_ 
- ZNUMBER OF U 
02 OFH_OPEN_TYPE 


ZHOW THIS FILE WAS OPENED 


x BIT 0 
%  B1T 1 
x2 BIT 2 
x BIT 3 


02 OFH_FILE_TYPE_ 


our -_ — s BITC4)> 6% 

SERS WHO HAVE THIS FILE OPENEC 1/0 GR OUTPUT 
BITC4)» ; 

= LOCKOUT 

= LOCK 

= OUTPUT 

= INPUT | 

8_0 —BITC4)» Fb 
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LPRE“9.Q0 FILE TYPES 

O02 DFH_PERMANENT BITC4)» 20 | 

| ZHOW PEWMANENT THIS FILE 1S. THE VALUES ARE --- 
% 0 = TEMPORARY - WILL BE REMOVED NEXT CLEAR/START 

1 = PERMANENT - NORMAL FILES CONTAIN THI3s VALUE 

2-0 NuT USED 
% € = IAD FILE - CANNOT BE MOVED BY SQUASH | 
ZX F = SYSTEM FILE - CANNOT REMOVE» CHANGE UR SQUASH 

02 DOFH_JOB_WAITING_ON_CLUSE BITC1)» 22 
ZSOMEGNE ATTEMPTED TO OPEN THIS FILE BUT COULDN'T BECAUSE 
ZIT IS CURRENTLY OPENED LGCK CR THE REQUESTOR WANTS TO OPEN 
ZIT LOCK ANDO ITS IN USE. TELLS CLOSE TO CAUSE ANY JJ8S 
ZWAITING NO FILE WHEN THIS FILE IS CLOSED. 


O2 CFH_NEWFILE BITC1)» 45 
“THIS FILE IS NOT IN THE OLRECTORY YET 
O02 FILLER BITCH, FO 
O02 OFH_HOR_SIZE | BITCLO)» 2 ee 
ZTOTAL SIZE OF THEIS HEADER CIN BITS) 
O02 DFH_NG_USERS_LOCK BITC4)» [0% 
“NUMBER OF USERS WHO HAVE THIS FILE OPENED WITH LOCK 
O02 CFH_RECORC_SIZE BITC20)» "2 
| YSIZE OF THE RECORDS CIN BITS) 
02 OFH_FILE_LEVEL BITC4)» (3% 
 % 0 =.8-0 ANC EARLIER 
. Z 1 = 9-0 
O2 OFH_RCOS_aLocK BITC20)» (3% 
ZNUMBER OF RECORDS PER BLUCK | 
O02 DFH_BSLOCKS_AREA WORL » 1g 
XNUMBER OF BLOCKS PER AREA _. 
02 DFH_SEGS_AREA © WORD» Tuer, 
ZNUMBER OF SEGMENTS OR SECTURS PER AREA — 
O02 DFH_AREAS_RQST , BIT(12)5 oF 
XMAXIMUM NUMBER OF AREAS ALLOWED IN THIS FILE 
02 CFH_ AREA_CTR BITC12)5 Zl 
—-« PCURRENT HIGH AREA NUMBER ALLOCATED ps 
O2 CFH_EOF_POINTER WORD» git 
ZHIGHEST RECORD NUMBER WRITTEN IN THIS FILE 
O02 FILLER BITC4)s #5 2 
O02 CFH_BPS_NUG BIT(20)2 @%b& 


XSERIAL NUMBER OF THE BASE PACK TO WHICH ee MUL TI“PACK 
ZFILE BELONGS 


O2 FILLER BITC27)» Cle 

O02 DFH_ MPF BITC1)» “92 
ZATHIS IS A MULTI-“PACK FILE ; 

O2 DFH_UPDATE_DATE BITC16)» SO 


ZJULIAN DATE OF THE LAST TIME THIS FILE WAS CLOSED AFTER 
ZHAVING SEEN WRITTEN ON. ALSG DATE OF LAST NAME CHANGE. 
| ZFOR COCE FILES» ITs THE DATE OF THE LAST MODIFY. 
O2 FILLER BITC4)» 320 
O02 DFH_CREATE_TIME BITC20)» Bue) 


a3 
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_ ZTIME THE FILE WA 
02 FILLER | 
02 DFH_SAVE Factor 
| ANUMBER OF CAYS T 
02 DFH_CREATION_.DATE 
ZJULIAN DATE OF W 
02 DFH_ACCESS_DATE 
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S OPENED QUTPUT NEW, = 
BITC32)5 20" 
BITCL2). 24% | 
O SAVE THIS FILE. NO SIGNIFICANCE. | 
roy | BITC16)» 2% : 
HEN THIS FILE WAS OPENED OUTPUT NEW. 
BIT(C16)5 0 0 + 


ZJULIAN DATE OF WHEN THES FILE WAS LAST ees FOR CODEFILES> 


ZDATE LAST EXECUTED OR MOOIFTED. 


02 FILLER 
02 CFH_UPDATE_VERSION 
«EMS USE ONLY 


02 OFH_OMS_WRITE_CONTRUL> 


03 OF H_ DMS_ TO_BE_WR 


BITC61)» 4 20 
BITC1), 42) 


ITTEN BITCL)» 48% 


XHEADER HAS_ BEEN UPDATED & NEEDS TO BE de es CHANGED) 


0 = PUBLIC FILE 
1 = PRIVATE FIL 
_PROTECTION_I0 
0 
1 


02 DF 


= ACCESS MAY 


= ACCESS MAY 
«£2 = ACCESS MAY 
02 DFH_USERS_RANDOM 
XNUMBER OF USERS 
02 FILLER 
O2 DFH_MINRECSIZE 
XMINIMUM NUMBER O 
O2 DFH_MAXRECSIZE - 
ZMAXIMUM NUMEER O 


DEFINE = | —_ 
DAD_ARRAY_SIZE AS 4(36 


DECLARE 


OL DUMMY REMAPS DAD_ARR 


02 CFH_AREA_ADDRESS 
03 DFH_UNIT 
04 DOFH_PC> 
05 DFH_PORT 
05 DFH_CHAN 


O04 DFH_SER_NO_ 


04 DFH_EU 


BE 1/0 


BITCL)» 


BIT(36)> 434 
THE LAST CLOSE. I/7S AND pus ONLY. 
BIT(2)» 520 - 


E 7 
& 


BITC2)» 546 


BE INPUT ONLY 

BE OUTPUT ONLY — ‘ 

BITC8)» 32° 

WHO HAVE THIS FILE irenco RANDOM 
BITCA8)» 5 

| 7 BITC20)9 540. 

F alts IN EACH LOGICAL. rer 
BITC 20)7% &8 | 

F BITS IN EACH LOGICAL RECORD 

£0 


* 105083 


‘DEFINE BFH_INDEXED_DAD -DECLARATIUNCDAD_ ARRAY) AS # 


AY» 
DSK_ADR» 
BITC12)» 


BITC3)>» 
BITC4)» 
BOOLEAN» 
SITC4)» 
BITC24)>5 


FLAG 
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DEFINE OFH _UBSCRIPTED CAD_ CECLARATIUNCDAD_ ARRAY) AS WX 
DECLARE 


01 OUMMY REMAPS DAC_ARRAY> 


02 FH_AREA{ ADDRESS (105) 


03 FHK_UNIT 
04 FILLER 
04 FH_SER_NO_FLAG 
04 FELLER 

03 FH_AODR 


DEFINE LEL.~SIZE AS #64083 


SCRTCH.TYPE AS #"0"2 


USER-TYPE AS 471 "#2 


#> 
y 4 
LABEL SIZE 
y4 
DEFINE 
» 
» 
» 
» 
» BCV 
ro BOF 
» ~QOV 
» EGF 
» PFE 
» 
, 


BACKUP.TYPE AS #"2"4 % 
LIBRARY.TYPE AS#"3"# Z% 
NOTSANSI AS #"0"8# Z 
AS al# 2. | 
AS #28 2 

AS #34 2 

AS #4# 2% 

AS #54 2 

LOST Sa H7H 2 


DSK_AOK» 
BITCL2)» 
BITC7)> 
BOULE AN» 
BITC4)> 
BIT(24)3 


DEFINE STANDARD-L AGEL» DECLARATION AS # Z 
cee ere O1 ODUNMY REMAFS 


ad 


ews evevue_vsseewevweuy 


L LABEL 
L.MFID: 


L.Z1 


L.10 
L.REEL 
L.CW 
L.CYCLE 
L.PID 


L.S 

LBC 
LeRC 
L.P6 


CHAR 


CHAR 
CHAR 
CHAR 


CHAR 


CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 


(9) 
C7) 
C1) 
C7) 


C3) 
(5). 


C2) 
(5) 
C1) 
C5) 
(7) 
C1) 


L LABEL RECORD 


= 


MMM WM MN REN MD 


yA 


" LABEL 


je 


"90" 


Qo” 


a] 


DATE WRITTEN 


PURGE DATE 


SENTINNEL (1 
BLOCK COUNT 
RECGRD COUNT 


ENC-GF-"REEL) 


PRINT BACKUP FLAG 
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» 02 L.SERIAL CHAR (5) % SERIAL NUMBER 
 » 02 L-SYSTEM CHAR (5) Zz CREATING SYSTEM © .& 
» O2 L-SUF SIZE CHARC8) % NEW FORMAT DECIMAL BLOCK SIZE 
» 03 L-BSIZE 8BI1TC(24) yi OLD FORMAT BINARY | 
» 03 LeRSIZE BIT(24) y 4 OLD FORMAT BINARY 
» O02 LeRECSIZE CHAR(B) x NEW FORMAT DECIMAL RECORD SIZE 
» 02 LeMODE CHARQL) 8 % NEW FORMAT RECORDING MODE FOR. 
| | | x TAPE FILE 
a a 
‘DEFINE ANSI. TAPE ~ DECLARATION AS & 


DECLARE 
| 01 DUMMY REMAPS ANSI. TAPE.LABEL CHARCBOIZ 


r 02 ID.AND-NUMBER CHARC4) yA 
> 03 I0 | CHARC3) yA 
» 03 NUMBER CHARCi) 2% 
» 02 FILLER CHAR C76) 2% 
3 Hs & | | 
DEFINE VOL. HEADE R.DECL ARAT ION AS # 
DECLAREZ 
01 CUMMY REMAPS. ANSI.TAPE. LABEL 2% 
2 O02 FILLER OS CHARC4) 
> 02 VOL.ID CHARC6) 2% 
re 02 ACCESSIBILITY CHARC1) 2% | 
» 02 RFS CHARC26) % SUPPOSED TO BE RESERVCD BUT WE WILL 
| ZUSE IT ANYHAY 
> | 03 MFID . CHARC17) 2797 IF NG MULTIPLE FILE ID 
— : 2°XG" FOR 17 #4IF SCRATCH 
| | Z"BACKUP™ FOR BACKUP 
»? O3 SYS-SYMBOL CHARC2) Z% "17" 
a 03 TAPE.TYPE - CHARC1) x 0= SCRATCH 
| | Z 1= USER 
; % 2= BACKUP | 
a | Z 3=LIBRARY 
> O3 FILLER = CHAR(6) % 
» O02 OWNER.IO CHARC14) % 
oo 02 FILLER CHARC28)2% | 
? O02 VERSION CHAR(1) % 1 FOR THIS STANDARD 
> &> 
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DEFINE HEADERI.DECLARATIUN AS# Z% USE FOR HORL>EQV1-E0F1 
DECLAREZ 
01 DUMMY REMAPS ANSI. TAPE-LABEL 


» &©@e &Y Vw 


» 02 FILLER — CHARC4) 
9 O02 FILE.ID CHARC1 7) 
» O2 FILE.SEG.NO CHARC4) 
» O02 GENERATION. NO CHARC4) 
» 02 GENERATION-VERSION.NO CHAR 2) 
ra O2 CREATION.DATE CHAR(6) 
» O02 EXPIRATION-DATE CHARC6) 
» O2 ACCESSIBILITY CHARC1) 
» O2 BSLOCK.COUNT ——6 CHARC6) ZHDRL="000000">-EOV & EGF = REAL THING 
» O02 SYSTEM.CODE CHARC13) % | | 
» O02 FILLER CHARC7) Z REFS 
» &> 
DEFINE HEADER2-DECLARATIGN AS 4 ZHOR 2a EGV2 s9E DF 2 
DECLARE | | % 
O1 DUMMY REMAPS ANSI.TAPE.LABEL v4 
» O62 FILLER CHAR C4) y 4 
» ~—6O2 RECURD.FORMAT CHARCL) ~% F= FIXED»D=VARIABLE» S=SPANNED 
Z _" | Z U= UNDEFINED 
02 SLOCK.LENGTH _ CHARCS) ys 
~G2 RECORD-LENGTE —  CHARCS) yA 
O02 RESVeSYSTEM-USE 9 CHARC35) Z 
03 CENSITY  CHARCL) ~% 0=2800% 1=55622=200» 3$=1600 
03 SENTINAL CHAR C1) % 
03 PARITY CHARC1 ) ~Z O= ALPHACEVEN) »1=8INARYCODD) 
O03 EXT.F ORM CHARC1) Zz O= UNSPECIFIED 
£ 1= BINARY 
Zz 2= Asctil 
2 3= §CL 
| | Z 4= EBCOIC 
° O3 FILLER CHARC31) 72 | 
» QO2 FILLER oe CHAR(C28) % RFS 
»  » 3 | | 


mm NR 
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verte CSV.SIZE 


DEFINE CSV.ONE AS #9% 


02 CLEAR.START. FLAGS 


CAS 
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BIT 


2219 0144 (8) SEC. III 


ee DECLARE COLD.START. VARIABLES TEMPLATE BIT CCOSV.S1ZE)3 


(40) > 


03 CS.WHICH 
03 CS.TRACE — 
03 CS.INTERP 

03 CS.MCP 

03 CS.GISMO 

03 CS.INIT 

03 CS.EMULATE 
03 CSMICRO.MCP 


NAME-TABLE 


INTERP-OICeENTRIES 
CSeSIZE 

CUMP.fF ILE 
CSV.CULD.-START.LEVEL 
03 L61L-NAME.~TABLE 

O3 FILLER i #$BITC23)> 
MPF.TABLE 


LOG.MIX-INFO 


DISK.AVAIL 


DISK.sDIRECTORY 


TEMP.TABLE 
SYSTEM.DRIVES — 
03 SYSTEM. ORIWE 


' AVL.TAB. DISP.. 


SY-DAY 
SY MONTH 
SY.YEAR 
SY.JDAY 


SYeTIME | 


03 SY-HOUR. 
03 SY-MIN 

03 SY-SEC 

03 SYe1LOTHSEC 
SY¥-12HOUR 
SYeDAYNAME 

SY -MERIDIAN 


SYSTEM.OPTIONS 


BITC4)» 
BiT €4)> 


BIT C4)» — 


BIT €4)». 


BIT C4)» 
BIT (€4)» 


BITC4)» 


BIT €4)>s 
~—OSK.AADR» 


WORD» 

WORG » 

DSK.ADR» 
BITC2 4)» 
BITC1)» 


DSK. ADR» 
DSKe ADR» 


DSK.ADR» 


DSK.ADR» 


DSK.sADR» 


BIT (16) 
BOOLEAN» 
SIT €64)» 
BIT (5)» 
BIT €4)>» 
BIT (€7)>» 
BIT (9)> 
BIT (€21)>» 
BIT (€5)> 
BIT €6)» 
BIT {(6)>» 
BIT €4)» 
BIT (5)» 
CHAR €9)» 
CHAR €2)>. 
BIT €80)» 


v 
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03 LOG.OPTION 
03 CHARGE 2OPT ION 
03 LIG-OPTION 
03 OPEN-OPTION 
03 TERM-OPTION 
03 TIME.OPTION 
03 DATE.GPTION 
03 CLUSE.OPTION 
03 PBT.UPTION 
03 PBO.OPTION 
03 HOJ-UPTION 
03 EOJ-GPTION 
03 SCHM.OPTION 
03 LAB-UPTION 
03 RMGV.OPTION 
03 DUMP.OPTION 
03 ZIPP.OPTION 
03 MEM.OPTION 
03 SWO1-OPTION 
03 SWO2-OPTiON 
03 SWO3-OPTION 
03 PWS.OPTION 
03 OMS.OPTION 
03 RFAC-GPTION 
03 TRMD.OPTITON 
03 DEGUGeOPTION 


03 CISP.OPTION 


Hse 
CEF INE 
— 02 
02 
02 
02 


02 
202 
— ep O2 


03 SPOL.OPTION 
03 RMSGeOPTION 
03 SQRM.~OPTION 
03 TAKS.OPTION 
Q3 BREL-~OPTIDPN 
Q3 MPRI.OPTION 
03 THRASHING.OPTION 
03 FLMP.OPTION 
03 VLCP.GPTION 


03 VLIO.OPTION 


Q3 BRER-OPTION 


CSV.TWO AS fs % 
FIRST» SCHEDsENTRY 
FIRST»WAITING. SCHED 
GISMO.TRACEsFLAGS 
SYSePC. 

03 SPC 

MIXeLIMIT 
SPO09eCLEAR. START 
SPO.FLAGS 
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BOOLEAN» 
BOOLEAN» 
BUOLEAN» 


BOOLEAN» ~ 


BUOLEAN>» 
BOOLEAN» 
BOOLEAN» 
BOOLEAN» 
BOOLEAN» 
BOOLEAN» 
BOOLEAN» 
BOOLEAN» 
BOOLEAN. 
BOOLEAN» 
BOOLEAN» 
BOOLEAN» 
BOOLEAN» 


BUOLEAN®> % 


BOOLEAN» 
RBUOLEAN? 


BOOLEAN» 


BOOLEAN» 
BOOLEAN» 
BOOLEAN> 


BOOLEAN» 


BOOLEAN, 
BUOLEAN>» 


. BOOLEAN» Z 


BOOLEAN» 
BUOLEAN» 
BOOLEAN» 
BUGLEAN» 
BOOLEAN» 
BOOLEAN» 
BOOLEAN» 
BOOLEAN» 
BUOLEAN» 
BUQLEANZ 


DSK. ADR» 


DSK~AURs 


WORC » 


BIT C28) e»ZARRAY OF SYS PORT»CHAN 


BIT €7), 
BITCeAd2Z 


BITC60)% SPO.Q-POINTER» DUWN TO B 


BITC3)% 


MCP COMMUNICATES AND STRUCTURES 
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9 03 SPO.-DISPLAY.TIME _— BOOLEANZ 
>» 03 CRIsSPQ.-TRANSL | | « BOOLEANZ 
9 O03 CRY.SPG.DIRN | BOGLEANZ 
202 SPOLOG.LAST.AREA | BiTC1)Z% SPQ. LoG-FULL | 
202 SPOQ.SUPPRESS | BITC1)% IF ON THE DISPLAY ONLY I0 
902 FILLER | BITC1)Z% 
02. SPOLOG.LAST. SECTORS BITC2)% NOT USED. TILL bel 
902 SPOLOG.SIZE | BITC16)% 14 BITS ARE ENGUGH.» 
902 NEXT.SPOLUG.REC BITC36) ZNEXT SPOLOG SEGMENT»: 
» O2 CSV.CORRECTABLE.ERROR.TABLEsLENGTH @ITC1L6)% 40 + 32*KENTRIES 
| 902 CUMP.FILE.SIZE BITC16) | 
89%” | | 


DEF INE CSV.DECLARATION AS &% 
DECLARE O01 OUMMY REMAPS COLD.START. VARIABLES 
CSV¥.OQNE | 
~CSV.TWO 
oe 2 
DEFINE OCS¥. SIZE. AS #107183 
y 4 
DEF INE DCSVe-DECLARATION AS 42 
DECLARE 01 OUMMY REMAPS DISKeCSe¥ARIABLES» 


O02 MASTER.IOAT OSK.ADR> 
O2 MASTER.DISKeAVAIL DSK. ADR» 
02 NEXT.LOG. REC | , «SK. ADR» 
02 LG.SIZE WORD» 

02 NEXT.ELGG : DSK» ADR» 

O02 ELOG.SIZE | | WORD» 

02 JOB.NO So - WORD» 

02 PBD.NO | a : WORD» 

02 SPO.Q.SIZE | | WORD» 

02 CTLOCK.NO _ 4G WORD» 

02 LOG.NO _ | WORD» 

02 Q@-DISK oO . DSK. ADR» 

02 TRACE.FPB _ | DSK» ADR» 

O02 AUTO.MASK «BITC 28)5% 4 OF 7 EACH=PRT PC 
02 AB.NUMBER a ee BITC3)+% NUM OF SYSTEM/BACKUPS 
02 FILLER BIT(5) +z 
(02 PBD.BLCKS.AREA | WORD» 

(02 LGsLASTsAREA | | BOOLEAN» 

02 ELOG-LAST.AREA BOOLEAN» 

02 FILLER ~ BIT (2), 

02 PBO.DESIGNATION CHARC10)»5 
02 SP0.Q | | DSK. ADR» 
O02 PROTECTED.UNITS BIT( 256)» 


ZARRAY OF 16 16 BIT ENTRIES OF UNITS TO BE PROTECTED THRU C/S 
%12 BITS FOR PCU 
% 2 BITS FOR LABEL TYPE 


X% 0 = ANSI — 
% 1 = UNLABELED 
x 25 
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% 1 BIT FOR TRANSLATE O=ESCDIC L=ASCII 
% 1 8IT TO INDICATE THAT A C/S HAS HAPPENED ON THIS UNIT 


O02 SYS.L0GG. NUMBER | BITC24)>» 

02 JOE-ACCTING.NUMBER BIiTC24)>» 

O02 SESSION.NA BiT (16)» 

O2 XM.TASLE»DISK- ADDRESS DSK.ADR» 

O02 DCSV.NSEC.DISABL. THRASH.FAULT BUOLEAN>, 

O2 DCSV.OVERLAY.RATE BITC6)» 
O02 OCSV~THRASHING.SENSITIVITY BITCa) 

O02 DCSVe-HUSTNAME CHARC1L7) ZONA. 


e 
yd 


be 
| 


Be - 
PEE PE ve RE RL PRE ve 
ne 
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DEFINE MEMORY. LINK. SIZE AS #1798; 7 
“DECLARE MEMORY.LINK TEMPLATE BITC MEMURY. LINK. SIZE)5 


— DEFINE. MEMORY.LINK.DECLARATION AS #— 
ee O01 DUMMY REMAPS MEMORY.LINK> 


2 ML.CISK OSK.ADR> 
2 ML~GROUP» 
3 ML.POINTER ADDRESS» 
3 ML.JOB.NUMBER | BITC16)>» 
3 ML.TYPE BITC6)> 
(3 ML.SAVE BITC1)>» 
2 MLeSIZE BITC24)>» 
2 MLePRIGRITY.FIELD BITC22)>— 
3 MLeDK.INTERVAL BITC6)>» 
3 ML.CURRENT.OK.INT BITC6)>» 
3 ML~INCOMING.PRIORITY BIT(5)» 
3 ML»RESIDENCESPRIORITY 8BITC5)» 
4 ML.~RP.WHOLE BITC 4)» 
4 ML»«RPeFRACTION BITC1)>» 
2 MLeFRONT ~ —BITC24)>» 
2 ML.BACK BIT(C24)>» 
2 ML.USAGE.BITS BITC2)>» 
3 MLPREVIOUS.»SCANeTOUCH BITC1)> 


3 ML.CURRENT.SCAN.TOUCH. 


USEC ML Disk | 
 * - »@ ML POINTER 
es ML.J0B- NUMBER 
 »#ML.TYPE J 
 - p ML ASAVE 
| op MLeSIZE 
»MLeFRONT 
oML BACK 
) OF KE MORY LINK. DECLARATIONS 


DEFINE Q.MLeOECLARATION AS#DECLARE 
01 G.NEMORY.LINK TEMPLATE 


we 8 @ e | 


02. FILLER BITCMEMURY-LINK.» SIZE) 
02 QML eFe AVL ADDRESS 
2 QeMLeBeAVL ADDRESS 
#3 ne a 
DEFINE - i 
TAKESLO | : AS#O# 
» TAKE.sRIGHTMOST | AS#1# 
| me 
% 
- 
Mo - ot #€., | | 
DEFINE =  % TYPES FOR “ML.TYPE" 
% <a 


BITC 15%; 
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% CAUTION: WHEN ADDING OR CHANGING TYPES BE SURE TO UPDATE THE TWO 


NNN NN NR 


x DEFINES - "MUST_IT_GO_ABOVE_FENCE"™ & "ALLOCATE _FRUM_Lo™". 
z | — 
COUE AS #082 

» DATA | AS #182 
» AVAILABLE AS #242 
» RNS AS #3#Z 
»  MCP_TEMP AS #4EX 
»  USER_FILE AS #54X 
» SEG_CICTV AS #682 
»  MICROCUDE AS #782 
»  DICT_MASTER AS #8#Z 
»  QUEUE_CIRECTORY_TYPE AS #S#2X 
»  SG_B8UFFERV AS #1082 
»  MESSAGE_LIST_TYPE AS #114% 
»  TO_8E_FORGOTTEN AS #12482 
»  DATA_SEG AS #1342 
»  OMS_ BUFFER AS #1482 
» TERMINATING LINK AS #1582 
»  HCP_PERM | AS #16#% 
»  PSAR_MEM AS #17#% 
>»  MCP_IOAT AS #1882 
»  ODISK_HEACER AS #19#% 
»  PACK_MEM AS #2082 
»  -SCO_CNINR AS #2182. 
»  SCHED_MEM AS #22#% 
»  SORT_MEM AS #2382 
»  DCH_MEM | | AS #2442 
»  MICROCODE_NON_GVERLAYABLE AS #258% 
»  QUEUE_AVL_AUF_¥ AS #268% 
»  DMS_DISK_HDR AS #27#% 
»  OMS_ STRUCTURE AS #2882 
»  DMS_TEMP AS #2982 
> OMS_GLOBALS © AS #3082 
»  DMS_TEMP_LOCK_DESCR - AS #3182 
»  XM_MEMORY af AS #328% 
»  PERM_SPO_BUFF AS #33482 
»  DMS_WORKAREA AS #3482 
»  i_S_CURRENT AS #35#2 
»  INTERP_OATA AS #3682. 

»  {_S_QUFFER AS #3782 
»  I_S_STRUCTURE AS #3882 
» RUN_UNIT - AS #3982 
B 
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“SYSTEM DESCRIPTORS 
DECLARE © 
| 01 SY STEM. DESCRIPTOR TEMPLATE BITCSY.SIZEDS- 


DEF INE SY.OECLARATION AS #SY.DECLC(SYSTEM. DESCRIPTOR) #32 
DEFINE SY.CECLCX) AS #DECLAREZ 

OL OUMMY REMAPS Xoz | 

| O02 SY.IN-USE BITC1)> 

O02 SY.MEDIA — «BITCL)» 

02 SY.LOCK BITC1)» 

OZ SYsIN.PROCESS BITC1)> 


— MEMURY MANAGEMENT 
O=DISK» 1=S-MEMORY 


TRUE IF THERE IS AN I/O IN; 
PKOCESS FOR THE INFORMATION 
REPRESENTED BY THIS DESCRIPTOR. 
IF TRUE» *SY.CORE" CONTAINS A 
POINTER TO THE I/0 DESCRIPTOR. 
"ADDRESS" IS READ-ONLY MOTHER © 
COPY» HENCE IF "WRITE" THEN GET 
NEW DISK AND REPLACE ADDRESS. 
THE OBJECT OF THIS DESCRIPTOR 
IS A FILE WHOSE USERCOUNT MUST 
BE DECREMENTED WHEN THIS 
DESCRIPTOR IS RETIRED. 

MEMORY DECAY FACTOR 

MEMORY -ACTIVITY AUDITING 

UNITS FOR SY. LENGTH. 

BITS 

DIGITS €4 BIT) | 
CHARACTERS (8 BIT) 

NORMAL DESCRIPTORS 

DISK SEGMENTS 

SYSTEM DESCRIPTORS 

SYSTEM INTRINSIC 

INDIRECT REFERENCE 

ADDRESS GIVES RELATIVE 
DISPLACEMENT IN BITS 
(SIGNED NUMBER). 

8= MICROS : 


“02 SYeINITIAL BITC1)> 


02 SY.FILE BITC1)> 


02 SY.OK-eFACTOR BITC3) 
02 SY¥eSEGePG —_ ‘BITCT7)>» 
02 SYTYPE 7 BITC4)» 


i 


Hoi wv uw won tt 


~~ OUI BS WwW = © 


02 SYeADDRESS BITC 36)» 
03 FILLER /  GITC12)> 
03 SY.CORE BITC24)> 

O02 SY-LENGTH = = —_ BIT(24)3 


PORT»CHANNEL ANC UNIT. 

CORE» GR ADDRESS WITHIN UNIT. 
NUMBER OF UNITS» AS DETERMINED 
BY SY-TYPE. 


MNRNRMNRNRNNNNNNNMRNRNMNNRNRNMNRNMNMNNRNN KRM NN NMR NM NN 


DEFINE ND-DECLARATION AS# 
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DECLARE | : 
O01 DUMMY REMAPS NORMAL.CcSCRIFTOR BITCNC.SIZE)>» 
O02 NOOK. FACTOR BITC3)» 
02 FILLER BiTC6)» 
O02 NC.CORE BITC24)» 
02 ND-TYPE BITC3)» 
02 NOeLENGTH BITC24)5#> 


Nr rR 
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RUN STRUCTURE STATUS IYPES 


D 


Pe PEM RE RM NR MM RM KR NM NM NR NNW BR 


ee veyeevVvusve_yeeyvedvusyevdvewvey iv 
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Orertrrterititietrr irre ttt atte rit tetris ere iret e ree ere 


* 2+ > &* © © » © 


IMPORTANT 


x 

x 

& 

| | & 
THE CAUSE ROUTINE IS ORIVEN | * 
MUST SE UPDATED IF THIS LIST IS CHANGED tt 
| 

* 

* 

* 


BY *"RS»STATUS®" AND 


LIKEWISE» "MAXsREASON™ CA CEFINE) MUST EQUAL THE 
LARGEST NUMBER IN THE LIST. | 


ree RESESESERESSERESZESRESSEE SEES SASL ARSE S ELE RSE RSERSESAL RE RE RAE RES ESSERE SSE SE FS 


FINE MAXeREASON AS #45983 


DEFINE  %  MRS.STATUS™ TYPES 
EXECUTING 


NO.FILE 


NO-USER.CISK 


DUPLICATEsLIBRARY 
OUPL ICATE.INPUT.FILE 
POSS IBLE.CUP 
WAITING. FOR «HARDWARE 
PROGRAM.STOPPED | 
WAITING. 10.COMPLETE 


WTGeDATACOMM.MSG 


WAITTING.~OVERLAY 


HDWR.NOT.READY 
_ WALTING.OPERATOR.ACTION 


WAITING.CLOSE 
WAITING» 0S.0R-DP 

NOwMPF .PACK 
WAILTING.FOR-LOCKED.FILE 
WAITING.~Q2IS FULL 
WAIT.STATUS er 
NOMEMWAITING.COMM.Q 


#04 
#14 
#2a 
#3H 
HA 
a8 
#6# 
a7 
HEE 
$9KZ 


#108 


#11% 


#124 


#13# 
4144 
#152 
k1io# 


#17#Z 


#16# 
H1L9# 
20% 
#214 
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fea 


ne We 


y NOMEMeWAITING.READY.Q AS #224 
» NOT USED AS #238 
» WTGePGMe.CALL AS A24Et 
» WAITING TIME .COMM.Q AS #254 
p WAITING» TIME -READY.Q AS #26# 
» WAITING. RECE IVE AS #27# 
» WTGeDATACOMM.OPN AS #2882 
» TERMINATING AS #298 
ad IN-READY.Q AS £304 
» IN-COMM.Q AS #318 
» STOPPEC.FCR. SORT AS #324 
° WIGeCCeDSK.CMPLT AS #33# 
WIGeCATACOMM.DSK — AS #34#2% - 
p NC.CCNTROLLER AS #3542 
| NC.COUTPUT.PACK AS #36# 
» VSORT.~QSORT-NOT-PRESENT AS #374 
» NOsSORT. INPUT.FILE AS #38# 
» WAITINGe-CONTENTION AS 2394 
» WAITING.~SYNCPOIN) AS #404 
» WAITING-RECO VERY AS #414 
Fd WALTINGeNEW AUDIT AS #424 
» WAITING.SORTER.IO0 AS #438 
» TERMINATING. WAITING.I0 AS #442 
» CLOSINGeWAITING.I0 AS &45# 
» WAITING-FORMS | AS #464 
° NOTRANSLATE -FILE AS #47# 
» —MF.SEARCHING AS #482 
»NO-OMS.FILE : AS #494 
sNODMS-UICTIONARY | AS #50# 
» WIGeCMS-KEGRGANIZATIUN AS #514 
» WIGeINACTIVE. ie AS &52h 
»  NO.USERCUDE AS #538 
rs WAITING. T0.8E€.CALLED AS #5484. 
P WIG.PROGRAM.JEXIT AS #554 
» WIGeCALLED.PGM.BOS AS #5684 
» WIGeRELeAREA-INIT AS &a57# 
» WIG.CATACOMM.RESULT AS #58#¢ 
» WIGe-BEGINNING.LAGBEL AS 


#598 © 
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RUN STRUCTURE NUCLEUS — 
DEFINE RS.NeSIZE AS #235583 


DECLARE RS-NUCLEUS TEMPLATE BITCRS.N-SIZE)3 
Ep | : 
OEFINE RS-INTERP. PART AS az 

- | 


OTETETETTTTTETTTTETTRTTTTETTETLTTTTE ETE TTT ETETETECTETTETTTEETT ETE ETE 
p 4 pHE FOLLOWING ARE (USED BY THE INTERPRETERS» MMCP» GISMO AND THE SMcP 
rs 
» 2 RS COMMUNICATE «MSG-PTR BITC48) 
ZCUNTAINS EITHER AN SDL DESCRIPTOR THAT POINTS TO A 
COMMUNICATE MESSAGE O% THE MESSAGE ITSELF 
ro 3 RS-ITYPE BITC2) 
| ZDEFINES THE USE OF COMMUNICATE -MSG.PTR 


x 00 = PROGRAM INTERNAL INTERRUPT 
z Ol = COMMUNICATE 
Z 10 = UNDEFINED 
% 11 = TERMINATING 
—s KSEE PROCEDURE IH FOR FURTHER CLARIFICATION 
» 3 RS. INMBR 7 BITC6) 


YINTERRUPT NUMBER IF RS.ITYPE=00. 
ZSEE IH FOR DEFINITION OF VALUES 


9 (3 RSTLENGTH g1T(16) 


we ‘ZLENGTH OF COMMUNICATE MESSAGE IF RS. ITYPE=01 | 

»° 3 RS. IADORESS :  BITC24)_ 

ee - ZADORESS OF COMMUNICATE MESSAGE IF RS.ITYPE=01 
ZNOT USED IF RSsITYPE=10 OR 11 

a ZSEE IH FOR DEFINITION WHEN RS.ITYPE=00 

be. RSeCONMUNICATE.LR BITC24) — 

— --« MLIMIT REGISTER OF THE RUN STRUCTURE THAT THE 

—- | ZCOMMUNICATE IS DIRECTED TO 

¢ 2 RSeREINSTATE .MSG~PTR BITC48) 

ue 2 ZSELF-RELATIVE SDL TYPE DESCRIPTOR USED TO PASS THE RESULT 
ZOF A COMMUNICATE FROM THE MCP TO A NORMAL STATE PROGRAM. 
ZSEE EACH COMMUNICATE FOR DEFINITION OF VALUES. 


» 2 RSe MY .BASE  =BITC24) 

|.  $BASE REGISTER OF THIS RUN STRUCTURE 
2 2 RS.MY. LIMIT BIT(24), 
_ LIMIT REGISTER OF THIS RUN STRUCTURE 
7 2 RS»MCP.BIT : BIT€1) 


ZINDICATES TO THE INTERPRETER THAT THIS RUN STRUCTURE 

aa ZBELONGS TO A CONTROL STATE JOB 

» 2 RSeNIP b1T(32) | 

| | XPAGEs SEGMENT AND DISPLACEMENT OF THE NEXT EXECUTABLE 
: ZINSTRUCTIGN FOR THIS JOB. SEGC6)» PC6)» 0(20). 

» 2 RSe SEG-DIC. PTR BIT(24) 
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| ZADDRESS OF THE MASTER CODE SEGMENT DICTIONARY 
o 2 RSeDATA.DIC BIFC24) 
ZACDRESS OF THE OATA SEGMENT DICTIONARY 
» 2 “RS.FIE.DIC BLIC24) 
ZMEMORY ADORESS OF THE FIB DICTIONARY 
» 2 RS-PAGEDeARRAY.OVERLAY BITC6) 
ZSEGMENT NUMBER DJF THE SOL PAGEL ARRAY HANDLER OVERLAY 
ZIF REQUIRED FOR THIS JOB. ALWAYS PAGE 0. » 
ZFORMERLY RSeINTRINSICS.LG® 
9 2 RSeSPAD-SIZE BITC16) 
ZSIZE IN BITS GF SCRATCH PAD FOR THE M~MACHINE. 
2FOR 81700/81800 IT WILL BE 768 


» 2 RSeSPADePTK BIT(C24) 
ZAODDRESS OF SCRATCH PAD IN S~MEMORY 
» 2 RSeINTERP.OATA.SIZE BIT(24) 
ZLENGTH IN BITS OF INTERPRETER DATA SPACE 
» 2 RSeINTERP.DATA-ACCR © BITC24) 
ZABSOLUTE ADDRESS OF INTERPRETER DATA SPACE 
» 2 RSeSPO.INPUT -PRESENT BITC1) 


ZINDICATES THAT AN AX WAS DONE 

ZFORMERLY RS-EXTERNAL INTERRUPT .BIT 

»9 2 RS-eTRACE.SUF -ADDR BITC24) 

| ZMEMORY ADDRESS OF THE TRACE BUFFER IF THIS NORMAL STATE 
ZJ0B IS TRACING. 


» 2 RSeTRACE-BITS et BiTCe) 
: - Z£FLAGS INDICATING WHAT TYFE OF TRACE IS TO BE PERFORMED 
» 2 RSeSWITCHES BITC40) 
410 4-“BIT SWITCHES. SWO-S 
» 2 RS. TIME B1T(20) 
ZTOTAL ELAPSED PROCESSOR TIME FOR THIS JOB 
» 2 RSeIPC.DICT | BITC24) 


ZABSOLUTE ADDRESS OF THE IPC~CICTIONARY FOLLOWING THIS 
ZRS NUCLEUS. CFOR IPC) 
» 2 RSeIPC.DICT.£STIZE BITC16) 
ZNUMBER OF ENTRIES IN THE [PC.-O0ICTIONARY 
» 2 RSeCALLERS.LH BITC24) 
| | ZLIMIT REGISTER GF THIS JOBS CALLER 
Z91ZE OF LAST.eLIO-STATUS MASK 
» 2 RSeLASTA-LIGeSTATUS.PTR BITC24) 
ZADDRESS GF LAST.LIO-STATUS MASK 


we RE PW 


ded RSeGISMOePART AS #2% 


STITT TTT TTT TTT TTT ETTORE TRE TERETE TTT CTT TTT TTT 
Z THE FOLLOWING ARE USED BY GISMO» MMCP AND THE SMCP 
’ | 
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+» 2 RSoG.LINK BET C24) 


XPOINTER TO THE NEXT JOBS RS@NUCLEUS 
ZFIRSTsGQUEUE PUINTS TO 1ST JOB. LAST JOB CONTAINS aFFFFFFa 


» 2 RSeLAST.TOP BIT(L) 
> 2 @S~DATA.O1C« SIZE BIT(23) 
— aa ZNUMBER OF DATA DICTIONARY ENTRIES. 
» 2 RSeQeIDENT BIT(24) | 
_ | THE QUEUE THAT THIS Jos IS CURRENTLY IN 
x = READY.@ 
4 : = S.COMM. 
% 3 = EXTERMINATE.9 
v4 10 = MeCOMN.Q 
Z 11 = WATE.Q 
oe _  &  -=2 = NOT QUEUED 
9 2 RSeNEXT.@ BIT(24) 


ZIF THIS JOB IS IN THE WATE.Q» THE QUEUE IT SHOULD BE 
| | ZPLACED IN WHEN IT IS CAUSED. 

» 2 RS-STATUS BIT(24) 

es XGIVES THE CURRENT STATUS OF THE soB. 

ae ZREF STATUS DEFINES AT LINE €2722000 
» 2. RS.PRIGRITY. INTEGER BIT(4) 


“2.6 ZPROCESSOR PRIORITY - 0-15 ALLOWED 
9 2 RSsINTERP.ID | BITC5) 


ZINTERPRETER NUMBER FOR THIS JOB. INDEX INTO THE 
- | so INTERPRETER DICTIONARY. 
» 2 RS.MEDIA B1T(1) 


% 0 = JOB ROLLED OUT To DISK 

go Z% 1 = JOB IN S-MEMORY 

» 2 RS.JOBsNUMBER. IN. DECIMAL BIT(16). 

oo % EeGs JOB NUMBER 1753 WOULD BE 317533 

> 2 RS.PAUSE ee BIT(24) 

en — 2ZTIME TC WAKE THIS JO8 IF SLEEPING 
9 2 RSeWAITSLEN | B1T(12) 

i ZLENGTH OF RS-EVENT.SPACE 

» 2 RSeWAITeLOC BIT(24) 
Ye, ZADORESS OF RS-EVENT.SPACE 

» 2 RS-DISABLE. INTERRUPTS BITC6) 


IF THIS FLELO IS GREATER THAN O THEN THIS JO8 MAY NOT 
ZBE INTER®GUPTED BY HIGH PRIOKITY INTERRUPTS. | 
» 2 RSe USE. FLAG | BITC1) | 
| “IF TRUEs JOB 15 CURRENTLY ACTIVE IN A 
| . = ZUSE ROUTINE 
» 2 RS. REPGORT-EVeINX | 8IT (1) 
7 | ZUSED BY PROCESSES THAT WISH TO HANG JOBS AND HAVE THE 
ZAEVENT WHICH WAKES UP TRE JOB REPORTED IN THE RS. 
ZCUSED BY MeWAIT ANDO COMPLEX.WAIT). 
» 2 RS- STATE.LIGHT | BIT(€16) 
7 Oo ZUSED BY THE LAMP CODE IN GISMO TO DISPLAY ACTIVITIES 
2B Y JOE. 
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> 3% RSeVARIABLESLAMP.CPU BITC2) 


ZUSED TO DISPLAY JUB CPU ACTIVITY 
» 3 RSeVARIABLE.LAMP.CODE-UVLY SITC2) 
, ZUSED TO DISPLAY JUB COCE UVERLAYS 
» 3 ASeVARIABLESLAMP.DATA.UVLY 3SITC2) 
ZUSEO TC DISPLAY JOB DATA UVERLAYS 


» 3 FILLER BITC10) 
Z 
> 2 RS.SLAVE.BLOCKED. COUNT B1TC(e) 
| ZNUMBER OF BLOCKS ON THE SLAVE SCHEDULER. COUAL CPU). 
Z 
#3 
x 
DEFINE RSeMMCP.PART AS #Z 
y4 


CLE LLAEALL ULLAL ALLL ALLL ALLELE LE ALLL LL AE LEAL ALLELE LLL LALA EAL LALL ELLE LEE 
ZTHE FOLLOWING ARE USED BY THE MMCP AND THE SMCP 


x 
ZCONTAINS THE JOB NUMBER ASSIGNED TO THIS JOB. ASSIGNED 
ZWHEN THE JOB IS SCHEDULED. JO3 NUMBER IS USED ON ANY 
%ZSPOQ INPUT MESSAGE THAT REQUIRES JUB INDENTIFICATIUON. 
| “ZBEGINS WITH 1 AND WRAPS AROUND AT 9999. 
» 2 RSeAEORT ~BITC2) 
| % 0 = AUNNING 
~ 1 = DS GR DP<$ED 
% 2 = CANCELED 
% 3 = QUE TO DEATH IN FAMILY 
» 2 RSeDC-ID0-COMPLETE | BITC’) 
ZTHIS EVENT IS CAUSED WHENEVER A DATA COMN I[/0 OR 
ZAN INITLALIZER I/0 COMES COMPLETE 
» 2 RS.~DATA.COMM BITC(1) 
oS ZIF TRUE» JOB HAS DONE A DC-INITIATE. IU 
» 2 RSeSORTERFLUWING | BIT(1) 
ZMICR JCB WITH READER/SORTER CURRENTLY IN FLOW MODE 
yg 2 RSTO.BE“ROLLED. OUT  pitd) 


ZIF TRUE» JOB IS A CANDICATE FOR ROLLOUT - DO IT NEXT. 
2N.SECOND | | 
» 2 RSeNOTeA-ROLLOUT.CANDIDATE. ITC1) | 
7 ZF TRUE» JOB HAS BEEN HUNG BUT CANNOT BE ROLLED OUT. 
> 2 RSsINTERVENTION © BITC1) | 
ZSMCP NEEDS TO DO SOMETHING TO THIS JOB BEFORE 
ZTHE MMCP CAN HAVE IT. CUSUALLY ROLLIN). 
» 2 KS.MsPROOGLEM BITC48) 
ZREASON WHY THE MMCP WOULD TURN CONTROL OF THIS 
2JOB OVER TO THE SMCP 
» 3 KSeMePROBLEMeTYPE FIXED 
Z 1=LIO PROBLEM CSEE PARAMETERS) 
% 3=FIB DICT NOT PRESENT 
%Z S=RSsINTERVENTION SET 
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r 7=DUMP COMMUNICATE SENT TO MMCP 


Z20=MMCF PAGE FAULT (PARAMETER=SEG CESC ADDR) 


Z3ZO=INVALID COMPLEX.WAIT. COMMUNICATE 
Z31=NO SPO. QUEUE 


i. 65 RS« MePROBLEM.PARAMETER gIT(24) 


a cen 


xkhak TYPE 1 a&teat 
L=IRARECOVERABLE EXCEPTION 
Z=FIB NOT OPEN 
3=WRONG POSITION 
4=NEEO NEW AREA oe | | 
5S=INVALID CHARACTER ON PSEUDO READER FILE 
6=EOF 
-7=AREA QUT OF BOUNDS 
6=DISK FILE HEADER INDICATES A MULTI PACK FILE 
S=AREA NOT PRESENT | 
ZL10=LOGICAL I/0 ALLOWED ONLY FROM SMCP 
Z11=DISK FILE HEADER NOT PRESENT 
Z12=INVALID FILE ACCESS 
ZIS=VARIABLE RECD SIZE BELOW BOUNDS. 


NMHRNNM HRN HM NR 


- Z14=VARIABLE RECD SIZE ABOVE BOUNDS 


Z15=VARIABLE RECO SIZE INVALID ON INPUT 
Z16=USER DATA OUTSICE BASE-LIMIT 


 ZIC=EMULATOR TAPE IRRECCVERABLE EXCEPTION 


ZL S=EMULATOR TAPE ILLEGAL INITIATE 
ZL9J=EMULATOR TAPE ILLEGAL FETCH 
ZZ0=EMULATOR TAPE OVERLAP © | 
Z21=EMULATOR TAPE ILLEGAL OPCODE 


Z22=EMULATOR TAPE ILLEGAL ERROR MASK 


Z23=EMULATOR TAPE ILLEGAL ACCESS 
4A e 


"4g 2 RSSPD.0.KEY BIT(24) 


ZPGINTS AT THE QUEUE DESCRIPTOR DESCRIBING THE USERS 
ZACCEPT QUEUE. | 

| | BIT(8) | oo 
ZIF THE JO8 IS HUNG FOR ANY PROBLEM WITH A FILE» THIS 
ZCONTAINS THE INDEX INTO THE FIG DICTIONARY FOR THE 
ZFILE IN QUESTION. 


9 2 RS« RUN « UNIT BITC16). 


ZJOB NUMBER OF THE PARENT OF THIS RUN UNIT CFOR IPC) 


2 2 RS. RUN -UNIT.LINK BIT(16) 


ZJOB NUMBER OF THIS J98S CALLER CFOR IPC) 


» 2 RSeIPCePARAMETER-LIST BIT(24) 


ZABSOLUTE ADDRESS OF THE IPC.PARAMETER.LIST 


> 2 RSe EXECUTE.TYPE BITC4) 


» £& 2 
% 3 
x 4 


EXECUTE 

COMPILE AND GO 
COMPILE FOR SYNTAX 
COMPILE TO LIBRARY 


xz 1 


now uw 
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% 5 = COMPILE. AND SAVE : 
% 6 = GO PART UF CUMPILE AND GO 
% 7 = GO PART UF COMPILE AND SAVE 
» 2 RSeNAME CHARACTER(C 30) 
ZNAME OF THIS JOG 
» 2 RSeIPC.EVENT: | B1T(1) 
ZDUMMY EVENT FOR ANY HANG FOR IPC 
» 2 RSe«CANCELED attc1) 
ZA CANCEL COMMUNICATE HAS 3EEN ISSUED AGAINST THIS JGB 


# 


RE wo Re ZL 


UEF INE FSeSMCP.PART AS 4&2 

yA | | 

AUER RLLLLERRALLRERERRLENLELRRELEEEAL ALAA Ahhh hhh hhh hhh hh ehhh hhhhhhhhh 

AVHE FOLLOWING AKE USED ONLY BY THE SMCP 

Z ; 

» 2 RSeEVENT.SPACE BIT(24#15) 
ZREPRESENTS THE LIST OF EVENTS ON WHICH A vane IN THE 
ZWAIT.Q IS WAITING. 7 

» 2 RS.BCJ.TO-EOU.FREEZE BITC1) 

os ZIfF TRUE» JO8 WAS EXECUTED WITH FREEZE AND CAN NEVCR BE 

ZROLLEO GUT 

» @ RSe~TEMPORARY -FREEZE BITCe8) 
ZCOUNTER THAT IS BUMPED EACH TIME A FREEZE IS DONE AND 
~—ZDECREMENTED FUR EACH UNFREEZE. CHANGED BY FREEZE 
ZCOMMUNICATEs REMOTE FILE OPEN» INI TIALIZER I/05 MICK 
ZOPEN ANC CLOSE. : 

» 2 RSePROGePTR | | BITC36) 


ZDISK ADORESS OF THIS CODE FILE 
| DISK ACDRESS OF WURKING PPB AND FPRB<S 
2 2 RS-DISK S1TC36) 
7 ZDISK ADORESSS OF JOB WHEN ROLLED JUT 
e 2 RS-JOB-ACCTING.NO B8I1T(24) 


ZA UNIQUE IO NUMBER FOR EACH JUS. RESET ONLY BY 
ZCULDSTART. INCREMENTED BY 1 EACH TIME A JOB ENTERS THE 
SCHEDULE. USED BY TAGS. 


» 2 RSs~NUMBER.FILES BITC8) | | 
| ZMAXIMUM NUMBER OF FPB-S DECLARED BY THIS PROGRAM. 
» 2 RSeTYPE BIT(6) | | 
ZHARDWARE TYPE REQUIRED TD RESOLVE MISSING HARDWARE 
» 2 KS-TRACE.FIB BITC&) 
ZF ILE NUMBER USEO FOR ERAGE INCEX INYG THE > 
ZFIBe-DICTIONARY. 


ZSERIAL NUMBER OF A DISK PACK IF THIS JOB IS WAITING 
ZFOR A BASE OR CONTINUATION PACK FOR MULTI PACK FILES 
» 2 RSUNIT.INDEX 3 BIT(24) 
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t 


oe OF IOAT OF DEVICE INDICATED BY L>DUsF Me UL 


2 RS. NCP. USE BIT) 


ZIF TRUE» MCP IS WAITING FUR AN EVENT FLAGGED mae 
ZRSe BOOLEANS TO OCCUR. 


2 RSe BOOLEANS | BIT(24) © 


ZUSED BY THE SMCP TO INDICATE ACTIONS AVAILABLE TO 
ZSOLVE OPEN AND CLUSE PROBLEMS 


RSeIL B1TC1) 
RSeUL Se — BITCL) 
RS «OF BITCL) | 
ASeFR BITC1) 
RSeFM | rs BIT(1) 
RS.OU B1T(1) 
RS.0K B1T(1) 
KSeRM | BIT(1) 
RSoMR g1T(1) 
FILLER | BIT(15) 
RS+MEMORY-PRIORITY BITC5) 
- ZMEMORY PRIORITY * 2 - 0-15 ALLOWEC 
RS.SWEEPS.BEFORE.CECAY BITC10) 
: ZNUMBER OF MEMeSWEEPSINTERVALS BEFORE IMPORTANT COOE 
 & ZSEGMENTS WILL DECAY. 
2 RS-FORCEL.SUSPENSION BITC1) 
; ZIFTRUE> JOB HAS BEEN STOPPED BY AN “ST Fou" MESSAGE 
- RSeLENGTH BIT(24) 
a ZLENGTH IN BITS OF THIS RUN STRUCTURE. 
-ZINCLUDES BASE-LIMITs RS»NUCLEUS» FIB.DICT» DATA.DICT» 
ZSCRATCH.PADs PATH.DICTs IPC.PARAMETER. TABLE» | 
: “OVERLAY.DESCRIPTOR 
2 RS. CODE-OVLY.COUNT BIT(20) © 
7 ZNUMBER OF DISK ACCESSES FOR CODE OVERLAYS. 
, RS. DATAsOVLY.COUNT BIT(20) : 
| ZNUMBER OF DISK ACCESSES FOR DATA OVERLAYS. 
, RS LINKS pita) 
- ZIF TRUE» DYNAMIC SPACE CONTAINS MEMORY LINKS. 
2 RS. LAST.OVLY BITC24) — | r : 
ee ZLEFT OFF POINTER FOR MEMORY MGMT. USED ONLY ON JOBS 
| | ZWITH DATA OVERLAYS | | 
RS=DATA- OVERLAYS BITC24) 
ee ZADORESS OF DYNAMIC SPACE WITHIN BASE-LINIT. 
2. ss ZF ARST LINK FOR MEMORY MGMT OF DATA OVERLAYS 
 RSALAST. LINK BIT(24) 
| ZADDRESS OF LAST MEMORY LINK WITHIN DYNAMIC SPACE. 
—_ —-« ZUSED FOR MEMORY MGMT 
2 RS. OVLY.DISK.BASE BIT(36) | 
. | XDISK ADDRESS GF BEGINNING OF DATA OVERLAY SPACE 
D RSeOVLY-DISK=PTR BIT(24) 
«ZINDEX INTO THE DATA OVERLAY AREA ON DISK 


2? RSe OVLY. DISKeSIZE BIT(24) 


nee OF OISK SEGMENTS RESERVED FOR DATA OVERLAYS 


ay a 
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bd 2 RSePREVENT.MOVE BITCL) 

ZRS-NUCLEUS CANNOT SE MCVED WHEN JOB IS ROLLED OUT 
» 2 RSeDISPLACED FIXED 


ZDISTANCE REMNANT HAS 3EEN MUVED WHEN THIS JOB 
ZWAS ROLLED OUT. 


» 2 RSeROLLIN-INSPROCESS BITC1) 
ZIF TRUE» THE SMCP IS ROLLING THIS JOB INTO MEMORY 
» 2 RS»ROLLOUT.COMPLETE BITC1) 
ZTHIS JO8 WAS ROLLED OUT AT LEAST OUNCE. 
» 2 RS~ROLLOUT.IN-PROCESS BITC(1) 
ZTHE SMCP [5 CURRENTLY ROLLING. THIS JQ8 OUT 
» 2 RSePROTECTED BITC1) 
ZIF TRUE» JOB IS LUCKED - NEEO LP- TO OS 
» 2 XS-e-TOeKE-STOPPED BIT¢c1) 


ZIF TRUE» AN ST WAS ISSUED ON THIS JOB. IT IS TO BE 
4STOPPEO WHEN CONVENIENT. 


» 2 RS-STOPPED  pItTd) | 
ZIF TRUE» JOB HAS BEEN STOPPED BY ST 
» 2 RSeSIZECHANGE - BITC) 
| ZIF TRUE» THIS JOSS SCRATCH PAD IS BEING CHANGED. 
» 2 RSeSOsePTReEFLAG HITCL) 
Z 0 = RSeSEGeCIC.PTR ‘CONTAINS ADORESS GF DICTIONARY 
% CONTAINER. - 
%Z 1 = RSeSEG-CDIC.PTR CONTAINS ADDRESS UF SEGMENT 
, z DICTIONARY ITSELF. | 
» 2 RS-CONT.KEENTER B1TC1) 
ZIF TRUE» THIS JOB CANNOT SHARE ITS SEGMENT DICTIONARY 
» 2 RSePAGED-DICT  BpIitc.1) 
ZINDICATES THAT COOE SEGMENT DICTIGNARY IS PAGED 
» 2 KSeEMULATOR-BITS | BITC4) | 
ZUSED 8Y THE 81700 EMULATOR 
» 2 RSs EMULATOR. TAPE BITC 8) | 
: ZNUMGER OF EMULATOR TAPE FILES CURRENTLY OPEN 
» 2 wS- PRIVILIGESD HITC1) 
ZIF TRUE» JOB HAS A PRIVILIGED USERCUDE 
» 2 RSsAPPARITION | BIT(1) 


ZIF TRUE» THIS JOB HAS CALLED ANOTHER JOB VIA SORT OR 
- «OPGMACALLER ANO IS WAITING FOR ITS COMPLETION. 
» 2 RS.PARENT. QUEUE | BIT(24) 
ZQUEUE ADDRESS OF THE PARENT PROGRAM ASSIGNED TO THIS 
ZJOB. CERTAIN MESSAGES WILL BE PUT INTO THIS QUEUE. 
» 2 RS.LOG-SPO 7 BIT(1) 
_ ZIF TRUE» SPO MESSAGES GENERATEC BY THIS JOB ARE TO 
| Z8E PUT INTO PARENT QUEUE. 
> 2 RS.USERCOOE BIT(10) : 
4 ZINDEX INTO THE USERCODE TABLE FOR THE USEACODE THAT 
“THIS JOB IS RUNNING UNDER. 
» 2 RS-SESSION B1T(16) 
| ZSESSION NUMBER OF THIS JOB 
» 2 RSePARENT.JOG.NR B1T(16) 
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-24JGB NUMBER OF THE Ju8 THAT SPAWNED THIS ONE 


» 2 aS. 5 -PRIOR-JOB~ NC ©. BITC16) 


%J0B NUMBER OF JOB THAT INVOKED THIS JOB THROUGH 
 XZPGM.CALLER OR SORT 
» 2 KSe OVLY.DESC. PTR BITC24) 
a ZAODRESS OF RESULT CESCRIPTOR OF OVERLAY DESCRIPTOK 


» 2 RS.PSEUCU.KEADER BIT(24) 


; ZACORESS OF PSEUDO READER ASSIGNED Tu THIS soa 

+ 2 RS~ ,DUMMY EV BITC1) 
ZA GENERAL PURPOSE EVENT USEC BY CUDPERATING PXOCESSES: 
XWITHIN THE SMCP TO HANG A JOB AND CAUSE IT TO 8E MOVED 

_ &TU THE SMCP-S COMM.QUEUE. | 

» 2 RSe MAX.TIME BIT€24)- | 

ZIF NEG O THEN PROCESSOR TIME IN 10TH OF SECONDS THAT 
| ZTHIS JOB 1S ALLOWED TO RUN. © | 
» 2 RS. INe TRANSACTION | Bird) 
| %JO8 IS IN OMS TRANSACTION STATE 


(s 2 RSeDM.OPERATION BITC1) 


ZJUB HAS A DMS CPERATION IN PROCESS - 
ZCANNOT BE ROLLED OUT 


» 2 RS. PATH.jCIC | | BITC24) 

= ZMEMORY ADDRESS OF DATA MGMT WUORKAREA 
» 2 RS-0MS. GLOBALS | | BITC24) 

“et ed “ZADDRESS OF DMS GLOBAL SPACE 
+ 2 RS. MF IDs CHANGED BITC2) 

. -) ZMUST SHIFT NAME LEFT ONE NAME BECAUSE OF USERCODE 
» 2 RS.PKID.CHANGED aim) 

_ ZMUST DELETE THE PACK IC IN THE NAME | 
» 2 RS. TIQ.IA. PRUCESS B1ITC1) 7 
| ZINDICATES INITIALIZER I/0 IS IN PROCESS 


ZMCS FILE NUMBER FOR COROL74 PARTICIPATING QU TPUT. 
| £18 A COBOL74 PROGRAM DOING DATA COMM. 
» 2 RS TRACE. TO. 8E.~STOPPED BITC1) 
7 | %ONE MEANS TRACE WILL BE STOPPED NEXT 
ZTIME THE INTERPRETER OCES A WRITE TO THE TRACE FILE. 


2 2 RSsCHARGE.NUMBER BIT(24) 


ZTHIS JOBS. CHARGE NUMBER. 


PE RE we Re 


DEFINE RS.NeDECLARATICN AS #z 


DECLARE 01 DUMMY REMAPS RS-NUCLEUS 


RSe INTERP PART 
RS-GISMOePART 


RSeMNMCPSPART 


KSeSHCPePART ~ 


ar 2) a 


a 
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DEFINE PPE.LEVEL AS #-4#> 

DEF INE PPE-SIZE AS #38708; 
DEFINE WORKING.PPBeSIZE AS #28808; 
7 | | 
OEFINE PPE.DECLAKATION AS# 
DECLARE Q1 DUMMY REMAPS PPB 
PPB.MASTER 

PPH.SPACL 
PPie See 
so 

a 4 

k 

yA —_ a | 
DEF INE MASTER. PP8.~DECLARATION AS&@ 
VECLARE Ot DUMMY REMAFS MASTER. PPE 
PPO-MASTER 
ats | 

y 4 


DEFINE SCHED.DECLARATION AS# 
DECLARE O1 DUMMY REMAPS SCHED 

“PPBe SCHED 

as | 

Z 

oo 4 

DEFINE WORKINGePPB.DECLARATION AS 2 
DECLARE O01 DUMMY REMAPS WORKING.~PPB 
PPB.MASTER : 


 PPB.SPAD 


ee ae 
% 
2 
a 
—_—— MASTER»PPB.SIZE AS #144083 


DEF Ine PPE.MASTER AS@>» 


02 PROG.NAME | CHARC 30)» 2 
03 PROG.CURRENT .DIRECTORY NAME> x 
% DIRECTORY IN WHICH PROGRAM IS LISTED. 


03 PROG. NAME. FIRST NAME » 4 
% PROGRAMS FIRST NAME | 


02 


02 


a2 
a2 


02 


02 


02. 


02 


02 


02 
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03 PRUGeNAME-SECCNO NAME> % 
% PROGRAMS SECOND NAME 
x 


% FOR COMPILATIONS ~ IN THE LOG CUPY GF THE PPB 
Z PROGeNAME.FIRST = COMPILERS FIRST NAME 
Z PRCOGeNAME.SECONG = OBJECT PROGRAMS FIRST NAME 
y | 
FROGeINTRINSIC | CHAR (€20)> 
03 PROG.INTRINSIC.DIRECTORY NAME » 
& PACK ID FOR INTRINSICS 
03 PROG.INTRINSIC.NAME NAME» 
% FAMILY NAME FOR INTRINSTICS 
PROG INTERP «NAME CHARC3ZO)» &% 
03 PROG.INTERP.CIRECTGORY NAME » y 4 
% PACK ID FOR INTERPRETER 
03 PROG-INTERP.~NAMESFIRST NAME>» ys 
Z FAMILY NAME FOR INTERPRETER 


03 PROG. INTERP.NAMEsSECOND NAME> 


2 OFFSPRING NAME FOR INTERPRETER 
PROG-PRIORITY a BIT C4)5 2 
—* Z PRIORITY IN THE MIX = COMPILER DEF AULT = 4 
PROGeBEGINNING - BIT (32) % 
% FIRST INSTRUCTION POINTER 
PROGeSTATIC.CORE WORD» z 
| LENGTH IN SITS OF MEMORY TO BE ALLOCATED 
IMMEDIATELY AFTER THE BASE REGISTER | 
IF THERE EXISTS A DATA DICTIONARY» THEN THIS FIELD 
MUST BE DESCRIBED 8Y ITS FIRST ENTRY. IF A DISK 
ADDRESS IS PRESENT THERE THEN THE SPACE WILL NOT 
ONLY BE ALLOCATED BUT ALSO FILLED FROM THAT 
ADDRESS. 
% DATA OVERLAY AREA IN BITS. 
PROG. TOTAL. CORE WORD» z 
SMALLEST AMOUNT OF MEMORY REQUIRED TO RUN - IN 
% BITS. 
% SHOULD SE EQUAL TO - 
% FROGeSTATIC.»CORE + PROG.~DYNAMIC.CORE + 
% DATA DICTIONARY SIZE + FIB DICTIGNARKY SIZE 
E 
y4 
% 


RE Re Te HL KL RL FE 


ne 


PROGSWORKING.SET wKORD» h 
AMCUNT OF MEMURY CIN BITS) NEEDED TO 
RUN THE EROGRAM EFFICIENTLY 
PROG.CATA.OIC BIT (ND. SLZEIr% 
| % DATA DICTIONARY 
PROG.SEG.DIC. ~—BIT CND.SIZE)»% 


% SEGMENT DICTIONARY. 
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02 PRCG.FPS. ADDRESS 7 | ADDRESS» % 


02 
02 


02 


02 


02 


02 


02 


“ 


02 


02 


a2 
02 


«02 


% RELATIVE DISK ADDRESS OF THE FIRST FPB IN THE . 
% PROGRAM FILE (RELATIVE TO THE PPB). ALL FPBS IN 
x THE PROGRAM MUST BE CONTIGUOUS. | 


PKOG.FILES | BIT €8)» 7% 


% TOTAL NUMBER OF FILES = 255 MAX 

PROG. VERSION.NO WORD» he 
% REVISION LEVEL OF PP3 AND FP&-S 

PRCGeOVLY.SEG © BIT €10)» % 

ps RESERVED FOR THE SOL GVERLAY HANOLER 
PROG «FREEZER BITCL)I» % 

ee ZREQUESTS THAT PROGRAM NOT BE RELUCATED. 

PROGeLINKS BITC1)>» ys 
oo % TELLS MCP WHETHER OK NOT MEMORY LINKS ARE 

% DESIRED IN THE OYNAMIC MEMORY AREA 
PRCGeTRACE PIT €8)» 2% 


% TRACE FLAGS TO ENABLE TRACING FROM THE FIRST 
Z EXECUTABLE INSTRUCTION. 


PROG -SCHED-PRIOKITY BIT €4)>5 2 
% PRIUVRITY FOR SCHEDULING 
PROG. VIRTUAL OL SK : WORD» 2% 
% NUMBER OF DISK SEGMENTS CESIRED FOR DATA OVERLAY 
X% IF = 0 AND DATA OVERLAYS ARE REQUIRED MCP WILL 
. % USE 1000. 
a) a 4% REQUESTS THAT PROGRAM AGT BE RELOCATED 
PROG.IPS AODRESS» z | 
| | % IF THIS IS AN INTERPRETER» THEN THIS IS THE FILE 
% RELATIVE LOCATION OF THE INTERPRETER PARAMETERS. 


PROG-DYNAHIC.SPACES BIT €8)» 7% 
3 % MAX NUMEER OF SPACES TO BE ALLOCATED IN 
% PROG-CYNAMIC.CGRE. 
% USED ONLY IF PROG.LINKS = 1. 


PROG. MoMACHINES.LOC WORD» he 
|  & FOR CHANGE STACK SIZE COMMUNICATE. 
PROGeNUMeMe MACHINES : BIT €&)» 7% 
. %& GONE FOR EACH Css COMMUNICATE. 
PROG. SWITCHES Bee eae hk 
% FOR RUN-TIME SWITCHES 
PROG «PERMANENT. FLAGS» 


“93 PROG-DMS BOOLEAN» 2% 


% THIS PROGRAM USES DMS. 


03 PROG. INTERPRETER CHECK.OVERRICE BOOLEAN» % 


% USE THE ONE I SAID. 


«03 PROG. INTReAGGR BITC1)» Zz 


& THIS PRUG CALLS FOR INTRIASIC.AGGREGATE. 
03 PROG.PROTECTED BOOLEAN» % 
% STOPS OS GT fw ST 
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02 PROG.COMPILER.LEVEL BITC8)>» % 
Z NEW LEVEL MEANS RECOMPILE RQC. 
% — 
02 PROG-PROG.PTIR DSKe»ADRe x 
3 % ABSULUTE ADCRESS GCF THE PPB ON BISK 
O02 PROG-EXECUTE.TYPE BIT (4)5 4% 
% 1 = EXECUTE | 
 % 2 = COMPILE AND GU 
% 3 = COMPILE FOR SYNTAX 
% & = COMPILE TO LIBRARY 
% 5 = COMPILE AND SAVE 
% 6 = GO PART GF COMPILE AND GO 
% 7 = GO PART OF COMPILE ANC SAVE 
O2 PROG eEQJ.TYFE BIT (4)>» 2 
| % 0 = NORMAL EOJ 
% 1 = DS OR OP 
% 2 = ERROR CONDITION IN PROGRAM 
% 3 = ABORTED 
4 & = RS-“ED 
O2 PROG.GENERATOR. NAME CHAR(30)> 2% 
.. 03 ‘PROG. GENERATOR. DIRECTORY NAME » % 
% PACK ID FOR COMPILER 
03,  PRUG- GENERATOR.NAME.FIKST NAME» yd 
% FAMILY NAME OF COMPILER 
03 PROG.GENERATOR-NAME.SECOND NAME» z 
—. % OFFSPRING NAME UF COMPILER 
02 FROG.CATE-CUMPILED BITC 36) % 
% COMPILATION DATE - 
% YEAR MONTH DAY KGUR MINUTE SECOND 
45% | 
z 
% 
% 
DEFINE PPE.SPAD AS #r% 
02 PROG.SPAL BIT (SePAD.SIZE) > % 
: % M-MACHINE 
O02 PRCG-CHARGE ~-NUMBER WORD» ys 
% CHARGE NUMBER 
O2 PROG.PATH.DIC ADDRESS» <z 
Z CATA MANAGEMENT PATH CICTIGNARY ACORESS 
O02 PROG.PATH. SIZE BIT €20)»> % 
% LENGTH OF PATH DICT IN 81TS 
O02 PROG .NMBR-PATHS BIT (&)» 2 
% TOTAL NUMBER OF PATHS = MAX=255 
O2 PROC.NMER. INVOKES BIT (4)5 2% 
% TOTAL NUMBER OF INVOKES = MAX=15 
O02 FROG-COMPILER.ATTRIBUTES RIT(C@0)» 


= & INTERP. MUST FAVE THEM ALL. 
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02 ‘PAOG.BOOLEANS - 7 BITCH)» x 


% JUST LIKE IT SAYS 


03 PROG.SURT BOOLEAN» x 


z.1 IF SORT PROGRAM 


03 PROG. DMS. 8 -OsFURMAT EGOLEAN» % 


 Z OMS COMMUNICATES USE STRUCTURE NMBRS INSTEAD 
% OF PATE DICTIONARY INDEXES | 


03 PROG.CMS. GENsSELJEXP BOOLEAN» % 


a 02 


02 


02 


02 
Q2 
02 


02 


02 


02 
02 


—60e 


% PROGRAM CAN CO GEN SEL EXP - CURRENTS SHOULD NOT 
% BE UPCATEO ON NOT FOUND. 


03 PROG.TWO.SEGMENT.FPB BOOLEAN» x 
--% CONTAINS TWO SEGMENT FPAS. 
PROGsSORT.DATA | | DSKsADRe = x 
— % SORT PARAMETER ADDRESS 
PROG eRSeEVeLIST~SIZE BITC4)>» 
PROGMAX.TIME WORD» 
: | % MAXIMUM PROCESSOR TIME ALLOWED IN MINUTES 
PROG e6s0-NMBReINVOKES - BITC6)> 
-% EXPANCED MAXIMUM NUMBER UF CMS INVOKES - MAX = 63 
PROG.NANE.TABLE 7 BITCND SIZE) »% : 
% USED FOR INTRINSIC AGGREGATES FOR NAMES CHECKING. 
PROG.LAYOUT.TABLE.AUDRESS BITL16)9% 
| % CODEFILE-RELATIVE SEGMENT ADORESS OF SDL LAYOUT TABLE 
PROG «LAYOUT ~TABLE.SIZE — -BITC12)»% | 
| % SDL LAYOUT TABLE SIZE IN SEGMENTS 
02 PROG.INTRIN. AGGRUSED | BITC2) 9% 
PROG »MEMCRY «PRIORITY  BITCAs 
% PRIORITY FOR CODE SEGMENTS - SYSTEM DEFAULT = 4 
PROG»SECONDS.GEFQRE.DECAY = ®BITC10)> 
2 NUMBER OF SECONDS AFTER AN IMPORTANT SEGMENT 
Z IS LAST ACCESSED BEFORE THAT SEGMENTS MEMORY PRIORITY 
% IS LOWERED. 
FILLER BIT(1)» 
PROG.sCOMPILER.sCOMPILE.DATE BITC(36)> 
ZCOMPILE DATE OF THE COMPILER 
PROG.SPAD.SIZE BITC16)> 
— -%SIZE IN BITS OF SCRATCH PAD. MUST BE 768 FOR 31700781800 
PROG»SPAD.PIR | BITC24)> 
| ZDISPLACEMENT INTO CODE FILE FOR SCRATCH PAD. 
ZDISPLACEMENT IS IN SECTORS. SHOULD BE 1 FOR B1700/81800 
PROGeWAIT.LENGTH BITC24)> 
PROG-sNUMBER.OF.FPBS BITC12)> 
| ‘X<NUMBER OF FILE FP&S + NUMBER OF SUB FP8S FOR I/S FILES 
PROGsIPC.SIZE BITC16)> 
| NUMBER OF ENTRIES IN THE IPC -PARAMETER.LIST 
PROG.IPC.PTR BITC24)> 
ZRELATIVE DISK ADDRESS CF THE IPC. PARAMETER. LIST 
PROG.IPCeMAX.SEND.PARAMS B11(16)> 
‘ZMAX NUMBER OF PARAMETERS THIS JOB WILL SEND VIA CALL 


PROG .NO.SLAVE a P1T(1)» 
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%JUB CANNOT RUN UN A SLAVE PROCESSOR 


O2 FILLER BITC160) 
| ZRESERVEO FOR MORE COMPILER GENERATED DATA. 
ee} 
x 
% 
z 
% 
z 
% 
z 
y 
Z ; ; 
DEFINE SCHED.SIZE AS #957#3% 
% | | 
DEFINE PPE.SCKED AS fo 
Q2 PROG.SCHED.LINK DSK.ADR» % 
% SCHEDULE IS A LINKED LIST 
O2 PROG.SCHED.FPR.COPY BIT (4)>» % 
% SCHEDULE PRIGRITY 
02 PROG.SCHED.SIZE WORD» 7: 
‘ % TOTAL MEMORY KEQUIREO FUR THIS JOB 
%Z PROG.TOTAL.CORE 
O2 PRKOG.JOB.NUMBER BITC16)»> % 
%Z JO8 NUMBER - LIVES FROM SCHEDULE TO EQJ 
O2 FILLER © BITC8)» % 
02: FROG.FLAGS>» | % 
03 PROG-UNCONDITIONAL | BITC1)>» z 
_ % IF TRUE THEN RUN JOG EVEN IF PREDECESSOR ABURTS. 
03 FROG.DONT.REENTER  BITC1)>» % 
|  % MY SEGMENT DICTIONARY IS NON.STANDARD. 
03 PROG.NODIF . | BIT (1)% 
% IF SPAWNED» CONTINUE IF SPAWNER GOES AWAY 
03 PROG.WAIT.UPERATOR BUOLEAN» % 
% WAITING FOR OPERATOR TC FS OR RS THIS JGB 
G2 PROGSEXsAFTER.NAME | CHARC30)» % 


02 


02 


% THE FOLLOWING NAMES ARE USED WHEN AW EX AFTER 
% IS ENTERED AFTER THE FIRST PROGRAM IS ALREADY 
 £ IN THE MIX 
03 PROG.EX~AFTER-DIRECTORY NAME » pA 
% PACK I[0 FOR THE EX AFTER 


03 PROG.EX-AFTER-NAME.FIRST NAME » y4 

% FAMILY NAME OF THE EX AFTER 
O03 PROG-EX-AFTER.NAME.SECOND NAME» Z 

% OFFSPRING NAME OF THE EX AFTER 
FROGeREMOTE.JOB.STIN BITCB)» yA 

% STATION NU. OF RJE JOB. 
PROG.REMOTE.JO8 BOOLEAN» Z 


Z FLAGS RJE CREMOTE) JOE 


O02 PROG. SORT.JOB-NO BITC24)» 
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— oe x soe NO UF SORT ANTRINSIC 
U2 PROG.SPAWNER | — «BIT Cld6% 


THIS PROGRAM SPAWNED ANOTHER ONE} 
(02 FILLER | BIT(2)» 
| | % 2 BITS AVAILABLE 
02 PROG. JOB.ACCTING-NO BITC24)5 x 
| % THIS PROGRAMS UNIQUE ACCOUTING NUMBER 
02 FILLER | | BITC8)>» 
02 PROG-PRIOR.JOB~NO BITC16)» % 
| % PROGRAM CALLERS JOB NUMBER 
02 FILLER BITCa)» x 
02 RAEN SRM O CONTE | — «RITC36)5 x 
ee 2 YEAR MONTH DAY HOUR MINUTE SECOND. 
O02 PROG.BOJ.DATE BITC36)» 2% 
_ : | % YEAR MONTH DAY HOUR MINUTE SECOND. 
O02 PROG.RUN.UNIT BITC16)». % 


%Z JOB NUMBER OF THE RUN UNIT THAT THIS JOdg WILL 
a 4 BECOME A MEMBER OF 


O2 FILLER BITC6EI> x 
a | % 68 AVAILABLE | 
(02 PROG.OBJ.NAME CHARC 30)» x 
03 PROG.O8J.DIRECTORY NAME> z | 
% PACK ID FOR OBJECT CODE COMPILES ONLY 
03 PROG. OBJ .NAME.FIRST NAME » oo a 
% FAMILY WAME FOR OBJECT CODE COMPILES ONLY 
03 PROG.OBJ.NAME.SECOND NAME» x : 
Sas % OFFSPRING NAME FOR GBJECT CODE COMPILES ONLY 
02 PRC. Pstuoo. READER ADDRESS» : 
a. % PSEUDOsREADER TABLE ADDRESS 
02 PROG.POART.CHAN _ BIT (7) 


&% PORT AND CHANNEL OF THE DIS ON WHICH 
% THE MOTHER COPY RESIDES 


>» O2 PROG.NE.FACTOR | FIXED z 

» 02 PRCG.PARENT.JOB.NR BITC16) x | 
: %~ JOB NR OF WHO ZIPPED THIS ONE 
e 


02 FILLER | a BITCB) % 
»  QO2 PROGePARENT~QUEUE BIT €24)92% —s | 
= Z PRESENCE INCICATES JOB SPAWNED. SPECIAL BOJ>» EQJ AND BACKUP 
% FILE PRESENT MESSAGES WILL BE INSERTED INTO THIS QUEUE. 
% GENERAL SPO MESSAGES WILL BE PUT INTG THIS QUEUE IF 
 & PROG-LOG. SPQ IS UN. 
O2 PROG-LOG.SPO BIT (19% 
O2 PROG.USER.CODE BIT €10)2 | | | 
 &% THIS WILL BE A RECORD POINTER» RELATIVE TO ZERO» INTO A DISK 
~ % FILE LABELED SYSTEM/USERCOCES. 
a. Oe PROGeSESSTION BIT €16)% 
% UNIQUE NUMBER ASSIGNED BY RJE. IT IS TO BE INSERTEO INTO ANY 
: Z MESSAGES PASSED BACK THRU THE PARENT QUEUE. 
» 02 PROG. PRIVILIGED | BOOLEANZ 
| % PROGRAM RUNNING KITH A PRIVILIGED USERCODE 


QUNROUGH 

COMPUTER 

SANTA 8A 

» 02 

» O02 

» O02 

» 02 

9 O02 
#> 
z 
yA 
y 4 
y 4 
yA 
y4 


Z 


S CONPURATION 


SYTEMS GRUUP 

RBARA PLANT | 
PROG.4F IDe-CHGD Bilt 
PROG»PKID.CHGD B1iT 
PROC.OBJ.4F ID. CHGD BIT 
PROC.0BJ.PKID.-CHGD BIT 
Z SET IF NAME CHANGED RY RJE.j 
FILLER BiT 


DEFINE FPB.SIZE as eneo4s) 


DEFINE FRB.DECLARATION AS #% 


DECLARE 


Qg1 DUMMY REMAPS FPBe 


02 FPReFILE. NAME 


(02 FPR. NAMES 


03 
93 


03 


02 FPB. 


O2 FPB.MODE 


03 


NAME » , 
Z IUNTERNAL EEEe NAME {CANNOT SE BLANK] 
CHAR €30)» 
FPE.PACK.IO NAME » 
£ PACK NAME C#BLANKI 
FPS.MULTI.-FILE.ID NAME » 
2% FAMILY NAME CFPS.FILE.NAME ] 
FP8.FILE.ID NAME » 
Z DRESS IE NG: NAME (CBLANK] 
10 FILLER CHARACTERC 5)» 
10 FPB8.AUDITFILE. NUMBER CHARACTERC5) >» 
HOWR BITC6) » 
% HAKDWARE TYPE 
7 BIT (4)>»s 
ZX RKECORCING MODE 
FPBe EVEN. PARITY BOOLEAN» — 
Z 1 = EVEN 
ZZ 0= 00D (0 is the default] 
FPBeCODE.TYPE BIT €3)» 
Z 0006 = EBCDIC (000 is the defauit ] 
* 001 = ASCII 
Z 010 = BCL 
2 011 = BINARY 


02 FPB.FILE~TYPE 


v om 
} &, ' ae wee 


: wor ac 
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C2)% 
C1)Z 
C2)% 
(19% 


USED IN IDENTIFY MIX AND ECT 


C9 )% 


BITC 8)» 


DISTINGUISHES CIFFERENT TYPES OF FPB=S 


% DMS 
% DAS 


FILE TYPE TO BE USED AT CLOSE ON CISK FILES. 


USE FPBeULDe-FILE.~TYPE FIELD. 


Z0009 


20060 


20320 


Z0326 


40330 


yA 
yA 
Z IF FPBeNEWeFORMAT EQL -3 THEN USE THIS FIELD OTHERWISE 
yA 
yA 


O = DATA 
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02 


02 


02 


02 


02 


NMNRNNM~NNHRR | 
pas 
nN 


xe 
bax a | 
pad 
on 
rr 
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PSEUCO CARD 


= INTERPRETER 

= CODE 

= DATA. 

= INTRINSIC | ye 
= RELATIVE CANSI74 COBOL) 
= INDEX.SEQ.GLOBAL~FILE CANSI74 COUSOL) 
= INDEX.SEQ.DATA.SETeFILE  CANSI74 COBOL) 
= INDEX.SEQeINDEXFILE CANSI74 CUBUL) 


TYPES 7e8 OR 12 CAUSE CLOSE TO MODIFY THE CLOSE 


% ADVERB TU CLOSE LOCK» cRUNCH 


FRB. BUFFERS 


FPBeBACKUP 
z 00 
x ol 
k% 10 
2 Ll 
FPE.BACKUP.0K 


ueuoa i 


FPB.HOWR.OK 
-% SEND 
FPE. BOOLEANS 


03 FPB.FORMS 


08 FP8.OPTIONAL 


ee, 


"reemastintnne nam reDnraneonTrITE 2c cneNCO RN 


~ Z THIS 
03 FPB.VARIABLE 
 & THIS 


03 FPB-LOCK 


% LOCK 


| BITC16)> | 10338 
% NUMBER OF BUFFERS REQUESTED (11 | 
BIT €2)» | %10354 
INVALIC CASE —_ 
TAPE ONLY 
CISK ONLY | | | 
EITHER TAPE OR DISK {11 is the default] 
BOOLEAN» %0 356 
ZSEND TO BACKUP IF NECESSRY {11 
| BOOLEANs 40357 
TO HARDWARE IF POSSIBLE C12 
BIT (24)> %0358 
BOOLEAN» er 
% QUIPUT FILE REQUIRES SPECIAL FORMS £01] 
— -BOOLEANs- 
IS AN OPTIONAL FILE (0) 
BOOLEAN» | 
FILE CONTAINS VARIABLE LENGTH RECORDS [0] 
BOOLEAN» 
THIS FILE AT TERMINATE TIME (01 
BOOLEANs 


03 FPB. COBOL 


% COBOL FILE - IMPLIED CPEN NOT ALLOWED (01 


03 FP8.EOP 


BOOLEAN» 


Z INDICATES PRESENCE OF END“QOF-PAGE ACTION LABELS C0} 


03 FPB.DEFAULT 


BOCLEAN» 


% BLOCK.SIZE RECORO.SIZE ETC. TO BE FILLEO IN &Y THE MCP 
2% FOR CISK FILES ANC TAPE FILES. (0] © 3 


03 FP8.PSEUDO 


BOOLEAN» 


FLAGS CTLOCK AND PSEUDG READER FILES (01 


03 FPB.NO-LABEL 


ve Atonet wuhaitrtamsnnnincuinnereninirsnienteateranan inna he png: arORG 


03 FPB.RMT.AEY 


BOOLEAN» 


Z KEY FIELD HAS BEEN ASSIGNED FOR NDL [0] 


BOOLEAN» 


ZX IF SET USE FPB.UNIT.NAME AND IGNORE LABEL [0] 


03 «FPB.WORK.FILE BOOLEAN» Z 


Z FORCE JOB NO} INTO THE MIDOLE OF THE MFID {C03 
03 FPB-QUEUE.FILE BOOLEAN» 


2 IF 0 THEN SINGLE QUEUE IF & THEN MULTIPLE QUEUES (07 
O03 FPB.DMS.FLAG 


BOOLEAN» 


% OMS AUDIT FILE £0] 


3737 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 


COMPUTER SYTEMS GROUP MCP COMMUNICATES AND STRUCTURES 
SANTA BARBARA PLANT — — -@e1s 0144 CB) SEC. IT) 
03 FPB-LODMP BOOLEAN»2Z 
ZTHIS WILL BE A LIBRARY TAPE [0] 
03 FPB-EMULATOR.TAPE BOOLEAN» 


02 


02 


02 


02 


& NC MCP TAPE SERVICES PROVIDED [0] 


03 FPB-HEADER BOOLEAN» % 
| ERS REMOTE READS AND WRITES WILL INCLUDE THE 


X HEADER [0] 


03 FPB.TRANSLATE BOOLEAN» 
% TRANSLATE ALL RECORDS USING FPBeTRANSLATE*NAME FILE (01 
03 FPB.USER -BACKUP.NAME BOOLEAN» Y 206 


&% USE USER PRINT FILE NAME FOR NAME uf” PRINTER BACKUP FILE 
% RATHER THAN MCP GENERATED NAME. [0] | 
O35 FPBeATTRIBUTEERKOR BUOLEAN> 
ZINDICATES WHETHER ERRGR OCCURRED ON LAST 
%Z FILE ATTRIBUTE REQUEST (0) 
05 FPB.OUMMY.FILE | — BOOLEAN, 
| % WO LOGICAL 1/70 TO BE DCNE ON THIS FILE (C01 


03 FPB.COBOL74 | BOOLEAN, 
% ANSI74 CUBOL FILE £0) 
03. FPB«SIMPLE HEADERS BOOLEAN» Z 
| Z RMT FILE W/ HEADERS sUuT NO CONTROL MESSAGES. (0) 
03 FPB.BACKUP.F ILE~EXTENTION BOOLEAN» Z 
z% EXTENTION FILE WHEN FIRST FILE EXCEEDS FILE SIZE. (0] 
‘03 FPS.FLEXIBLE e: BITC 1) 0% 
Z iF EFFECT» REQUEST A MAXIMUM CF 105 AREAS. [0] 
FPBsRECGRD. SIZE WORD» %0382 
% MAX LOGICAL RECORD SIZE IN BITS | 
FPBsRECURDS.PERsBLOCK ~ WORE » %0406 
Z NUMBER OF LOGICAL RECORDS PER PHYSICAL RECURD (¢11™° 


FPG MAX BLOCK.SIZE WORD» %0430 
% MAX PHYSICAL RECORD SIZE IN SITS FOR VARIABLE | 
% LENGTH RECOROS OWLY. NOT CONSULTED IF 
% FP8.VARIABLE = 0 CFPJ.RECORD.SIZE * FP8eRECORDS.PER. 


Z BLOCK) 
FPB.ADVERB BIT €12)> 200] 10454 
03 FPB.INPUT ©  —-- BUDLEAN> 
 f . 

03 FPH.QUTPUT BOOLEAN? 
O3 FPU.NEW : BUOQLEAN, 

yA 
03 FPB@.WITHePUNCH BOOLEAN» 

yl 
03 FPBeWITHePRINT | BOOLEAN» 

% 7 
03 FPB.NO.REWIND BOOLEAN» 

% DOUBLES WITH “WITH. INTERPRET". 
03 FPB~REVERSE BOOLEAN» 


% COUBLES WITH "WITH STACKERS". 
O03 FPB.GPEN.LOCK BOOLEAN» 
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are 2! ae 7 Les a. | 
03 FPB.OPEN.LOCKOQUT BOOLEAN» © 
z a | , _ 
03 FPE-REPORT-NO~ FILE BOOLEAN» 
y 
03 ceoone rent LuckeD. FILE BOOLEAN» 
03 FPB. OPEN. cove | BOOLEAN» 
a 4 ADVERB USED FOR IMPLIEC OPENS oo . 
02 FILLER BIT (80> © a 10.466 
| ZX 80 AVAILABLE ONES [0] | | _ 
02 FPE. LABEL.TYPE BIT C4)» : %0546 
% 0 = DEFAULT ANSI LABEL (0.is the default] se 
% 1 = UNLABELED | 
" x22:7 CHAR BURROUGHS STANDARD | - 
O02 FPB.SAVE WORD» - ¥0550 
| % SAVE FACTOR FOR MAG TAPE AND CISK (1) 
O02 FPB.REEL WORD» | | z057 4 
% REEL NUMBER (11 a _. 
O2 FPB.EXCEPTION.MASK | WORC>» | 20598 
, z {0] : | 
02. FPB.UNIT.~NAME CHAR (€6)>» %0622 
, | ‘% MNEMCONIC OF CESIREC UNIT (Cbtank] . 
02 FPB. NUMBER. STATIONS BIT (8)» 20670 
a --% NUMBER. OF REMOTE STATIGNS ASSIGNED TU THIS FILE | 
Z% IF FPB.NEWeFORMAT = —-2 THIS FIELD HAS BEEN REPLACED | 
7 Z - BY-FIRST 12 BITS OF. SEGMENT 2) [01]. 
* : 
 RUAZRELALATHE FOLLOWING ARE FOR MICR USEXZZ22LU LAZU LAL LEAL LALLA ALLA L ULE 
_ mere 7 : | , | 
z | | | | | 
02 FPBUSE. ROUTINE ' BIT €32)> 20678 
% SEGMENT AND DISPLACEMENT OF THE FIRST INSTRUCTION ‘ 
- | % IN THE USE ROUTINE CO} 
10 FPB. DMS-AUDIT.~SERIAL «NUMBER BIT(32)>» % OMS 
% SERIAL NUMBER OF FIRST AUDIT IN CURRENT AUDIT FILE 
02 Fee. USE -AREA | BIT €48)>» - ~20710 
| % A 24 BIT LENGTH AND 24 BIT ADDRESS | 
_% OF THE USE ROUTINE WORK AREA [01 | 
02 FPR. SRe STATION , BIT (€4)> | | «£0758 
% READ STATION FOR READER/SORTER [0] : 


02 FPG.ACCESS © BIT €4)» 3 20762 


SERIAL (C0 is the defauit] 

RANDOM | 

DEL AYED.RANDOM 

RESERVED FOR EXTENDED.SEQUENTIAL.I0 WHICH IS NOW 
IMPLEMENTED SY SETTING FPS.ACCESS = 0 AND 3 
 FPBSEXTENDED.SEQUENTIAL = 1e 


NKR NN KR 
“OS pt 
now ow 
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02 


02 
02 
02 
02 


02 


02 


02 


02 
02 


02 


x B DYNAMIC 


FPB.AREAS WORC » 40766 
% MAX AREAS DESIRED a 
% LIMIT = 105 (251 

FPR .BLCKS-AREA WORD | 207990 
% NUMBER OF PHYSICAL RECORDS PER AREA [100] ate 

FPBeEU.URIVE BIT €4)> %0814 
%Z SPECIAL EU OR ORIVE.NC USED WITH 
% FPH.INC-EU AND FPA.SPECIAL.~£U (0) 

FPB.ALL~AT~OPEN BOOLEAN» %0818 

7 % ALLOCATE ALL AREAS AT GPEN TIME [0] 

FPB.CYL-SOUNDARY BOOLEAN» Z0819 
% ALLOCATE AREAS ON A CYLINDER BOUNDARY (01 

FPB.MULTI»~PACKeFILE RUOLEAN> 20820 

 % FILE CAN GO ON MULTI-“PACK (£0) 

FPB.SPECIAL.EU BOOLEAN» %0821 
Z FILE MUST GO GN EU G& CRIVE SPECIFIED BY FRP3.EU.DRIVE 
% €0] | ; 

FPB.INC.EU BOOLEAN» 20822 
% INCREMENT EU OR DRIVE FOR EACH AREA (0) 

FPE.RESTORE IMAGE | BIT (1)5% %0823 
%Z RESTORE FPB IMAGE GN CLOSE RELEASE LOCK REMOVE ETC. 
% RESERVED FOR MCP USE ONLY. | 

FPBeEXTENDE O-SEQUENT IAL BOOLEAN» Z0824 
% USED TO INDICATE EXTENDED.SEQUENTIAL ACCESS WHEN 

| y FPB.ACCESS = 0 GR FPB.ACCESS = 2. {11 
FPBeLINEFORMAT BiT(1) 20825 


% IF SET» WE WILL FORMAT PAGE ACCORDING TQ PARAMS BELOW. 


FPB.CONTINUE.1 AS 2% 
RL AALAAAAARTHE FOLLOWING ARE FOR MCP USE ONLY 222A A LAAT L AA ALL AZZ 


Z 
y 4 
02 


02 


02 


02 


02 


02 


02 


02 


FPG .AUTOPKINT BIT (1)> %0826 
% O=AUTOPRINTAULE [0] 
FPE.SYSTEMsBACKUP.BIT BIT (1)» %0827 


% TO IGENTIFY AUTO BACKUP PROGRAM» SYSTEM/BACKUP 
Z RESERVED FOR MCP USE ONLY. 


FPBR.REPETITIONS BITCH)» | 70828 
Z NUMBER CF COPIES OF BACKUP FILE (01 | 
FPBePAGE.SIZE- | BITCB)» «40834 

Z 
FPG .UPPER.MARGIN BITC 8)» , L0842 
yA | 
FPB~LOWER.MARGIN BITC8)>» ~0850 
| ; | 
FPB.FOOTING. BITC)» Ps 20858 
FPBeINITIALIZE«RELATIVE.AREAS BOOLEAN» — 40866 


z 
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02 FILLER | BITC127)» _ | ~0867 
| | 4127 FREE ONES (01 | | hb a *e 4. 
02. FRPB.MCPOATA | 05K. ADRe | - 20994 
—- % RESERVED FOR MCP USE ONLY. © = _. °° 
02 FPBsMCPINTE ANAL BOOLEAN» | %1030 
% WESERVED FOR MCP USE ONLY.. _— 7 7 
02 FPB.BACKUP. ALREADY BUOLEAN>» . a 21031 


Z% THIS IS A BACKUP FILE - 00 NUT PUT TU BACKUP. AGAIN — 
 £ RESERVED ae MCP USE. ONLY. , | e 
O02 FPBNEW-FORMAT WORD» | | 41032 


ZTHIS WILL = -12 FORK GNE SEGMENT FP3 
“THIS WILL = -2 FOR TWO SEGMENT FPB 
ZTHIS WILL = -3 FOR TWO SEGMENT WITH NEW FPB. FILETYPE 


02 FPH-OLD-FILE.TYPE BIT C4)» | 21056 
Z IF FPB.NEW.FORMAT EQL ~3 THEN THIS 
| ZX FIELO HAS BEEN REPLACED BY FPB.FILE.TYPE _ | 
“02 FPB.PSEUDO. HDR ADDRESS» | | | %1069 


Z PSEUDO READER FOR THIS FILE [0] 


O2 FPBsSAVE.HOWR BIT(6)> | | «41084 
; --«% SAVE HDWR TYPE IF EVER CHANGED 8Y OPEN 

| Z RESERVED FOR MCP USE GNLY. 
02 FPB.INVeCHARS | B1TC2) 2 21090. 


Z 0 = REPORT ALL [INVALIC CHARACTER LINES 
ZX 1 = REPORT ALL ANC STOP AT THAT LINE 
% 2 = REPORT FIRST ONE ONLY Cdefault] 
% 3 = DONT REPORT ANY INVALID CHARACTERS 


—(O2 FPE. SER TAL CHAR C6)5% : %Z1092 : 
| ZALPHA“NUMERIC TAPE SERTAL ID {Cblanks] 

& 

KZEAAZALAZZ FOR QUEUE/REMOTE FILES ONLY LALULAL LL ALAA LLU AALAAAL LALA ALLL 


O02 FPE.Q.FAMILY.~SIZE BITC8)» 7 21140 
% IF FPB.QUEUE.FILE IS SET» THIS FIELD IS NUMBER OF O-S. 
% IF FPB.NEW.FORMAT = -2 THIS FIELD HAS SEEN REPLACED bY 
yA SECOND 12 BITS OF SEGMENT 2~- [0] 

—602 FPE.QeMAXeMESSAGES | BITC 8) Z1148 


X MAXIMUM NUMBER OF MESSAGES IN ANY ONE QUEUE 

% IF FPBeNEW.FORMAT = -2 THIS FIELD HAS BEEN REPLACED oY 
3 Z 12 BITS IN SECUND SEGMENT OF FPB. (01 

4 _ 7 | | 

LL LA LALAULA LALA A AAA L ALAA LLL LA ALLE LLL LUA ALLA ALLL ALARA ALLL ALLA LAL EL ALE 
yy | | 

» O2 FPB.TRANSLATE.NAME CHARACTERC 10) 21156 


ZTRANSLATE FILE NAME C"™TRANSLATE"/FPB.TRANSLATE NAME) 
% (biank] 


_* 02 FPB.PROTECTION BIT (2) %Z HOST RJE %1236 
| % 0 = PUBLIC FILE f{defautt] | | | 
Zi PRIVATE FILE 
| 2 2 = GUARD FILE _ 
» O02 FPB.PROTECT ION. 10 BIT €2)2% HOST RJE 41238 


Ht it 
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ZX 0= I1/0 Cdefault] 
% 1 = INPUT ONLY 
| % 2 = QUTPUT ONLY | 
» O02 FPB.MERGED-ATIRIBUTES B8ITC12) Z1240 


% WESERVED FOR MCP USE QNLY. 
x MERGED ATTRIBUTES FROM FPS ANO OPEN 
z ASSISTS [lL UL AND QU AND OATA.RECORDER IG.UP GENERATION 
p 4 CREATEO BY OR-~STANDAROLZE.OPEN IN OPENERS 
y 4 


FOR DATAeRECORDEReFILES ONLY AT THIS TiME121 1)] 
° 05 FILLER | BITC1) x 0 
» 05 FPHeMEKRGEO. INPUTF BOOLEAN y a | 
P 05 FPB.MERGED.OUTPUTF BJOLEAN Z 2 
» 05 FPB.MERGED.OPEN.OPTIUNS BITC4) % 3170 6 
» 10 FPB-MERGEDeWITH.PUNCH SOOLEAN % 3 
° 10 FPB.MERGEDWITH.PRINT BOOLEAN % 4 
» 10 FPB.MERGED WITH. INTERPRET BOOLEAN Z 5 
° 10 FPB.MERGED.WITH-STACKERS BOGLEAN % 6 DANGER 
» 1i FPO.MERGED.REVERSEF BUOLEAN % 6 DANGER 
» 05 FPBeMERGEC.LOCKF | BOQLEAN % 7 
» 05 FPB.MERGED-~LOCKOUTF BOOLEAN z & 
» 05 FP8.MERGED.RRRNOFILE BOOLEAN % 9 
» 05 FPB.MERGED.RRRLOCK.FILE ss BOOLEAN % 10 
» 05 FPRB.MERGEC.OPENCODE BOOLEAN %Z it 
» O02 FPB.MLTI-CHGD BIT €2)2 Z1252 
: Z RESERVED FOR MCP USE ONLY. 
» 02 FPB.PKIO.CHGD © BIT (1)2z £1254 
Z RESERVED FOR MCP USE ONLY. 
» O2 FPE.PROTOCOL BIT (8)2 21255 
| % USED BY APPLICATION PROGRAM TO TELL MCS MESSAGE FORMAT 
z (0) 
» 02 FRE.EXPANDECeADVERB BITC12) Z% CO] 11263 
» 03 FPB. INTERPRET | BOOLEANZ 
! yi 
» 03 FPB.STACKERS BOOLEAN 
%Z NO DOUBLE USES IN EXPANDED OPEN; 
» 03 FPB.~IN.SECURE BOOLEANZ 
| : % GVERRIDE RJE NAMING CONVENTIONS AND SECURITY; 
» O33 FPB.GPEN.ON. SEHALF.OF | BOUGLEANZ 
zZ CG NOT USE PROG'S USERCODE/PASSWORD; 
» 03 FILLER BiIT(e)z 


~ 8 BITS AVAILABLES 
%Z EXPANDED ADVERBS USED ONLY BY EXPANDED OPEN; 


» O02 FPB.0B0.UC. INFO BITCL2)% 21275 
» O35 FRPE.UEO.UC.USED BOOLE ANZ 
% CBO OPEN BIT WAS USED - REMEMBER FOR FILE CLOSE. 
» O03 FPB-0BO-UC.PRIV BCOLEANZ 
Z FILE OPENED GN BEHALF GF PKIV USERCODE. 
» 03 FPBe-O0B0.UC.~INDEX SITCLO)2 


% USERCCCE INDEX FOR WHICH FILE WAS GPENED ON BEHALF OF 
» O02 FILLER BIT €153) ZL287 


% 


02 


02 
02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


as 
02. 
02 


02 


57-42 


BURROUGHS CORPURATION | COMPANY CONFIDENTIAL — 


COMPUTER SYTEMS GROUP MCP COMMUNICATES AND STRUCTURES 


- SANTA BARBARA PLANT. - 2219 0144 (B) SEC. III 


% AVAILABLE SPACE FOR GLOBAL FILE ATTRIBUTES [0] ea 
FPB- NUMBER STATIONS.NEW BETC12)— - Z1440 

Z IF FPBeNEW.FURMAT = ~2 

X THEN NUMBER UF REMOTE STATIONS ASSIGNED TO THIS FILE. (0) 


FPB.QsFAMILY.~SIZENEW | BIT(12) | 41452 
% IF FP@.QUEUE.FILE IS SET AND PB. NEW. FORMAT = -2 — 
7 % THEN THIS FIELD IS NUMBER OF QUEUES. £01 | 
FPB. 1S.SUB.FPB.PTR : BIT(12) | 41464 
Z INDEXEC/SEQUENTIAL - SUB FILE FP6 OFFSET IN SEGMENTS 
x FROM BEGINNING OF DISK CODE FILE. 
% <dOy .. 
FPE.IS.NUMBER.-SUB-~ FPBS - BIT(8) 21476 
% INDEXED/SEQUENTIAL - NUMBER OF KEYS # (1 FOR DATA FILE). 
ty y 4 {0} 7 
FILLER | BITC12) %1484 
FPBeIS.NUM.IO.DESC BITC6) Zz C0) | %Z1496 
FPE.AREALENGTH BIT(24) | 21502 
% USED IN CONJUNCTION WITH: FPB.RECORD.SIZE 
z | | 
z FPB.~8LOCK.SIZE 
x 
z 
% FPBeFKAMESIZE 
FPB.@LOCK.SIZE , BIT(24) 21526 
% USED IN CONJUNCTION WITH: FPB.RECORD.SIZE 
Z 
y | 
a y a |  —-« FPB.FRAMESIZE | 
FPE.DENSITY | 7 BITC24) | 21550 
% 1 = BPI200 » 2 = BPI556 » 3 = GPI800 » 4&4 = BPI1600 [4] 


FPBeFRAMESTIZE | | BITC24) | Zi574 
OO, Z THE NUMBER OF BITS TO GE TRANSFERRED AS A UNIT OF DATA. 

| % CDEF AULT ON 817900/81800 SHOULO BE 1.1] 
FPB.Q. MAX.MESSAGES.NEW BITC12) £1598 


% IF FRB.NEW.FURMAT = -2 THEN THIS FIELD IS NUMBER OF 
% QUEUE MESSAGES ALLOWED IN ANY ONE QUEUE. [0] 
FPB.IS.KEY. PRIME | BUOLEAN %1610 
Z% INDEXED/SEQUENTIAL - THIS FILE CONTAINS THE PRIME KEYS. 
FPB.IS-KEY.DUP.»ALLOWED BOOLEAN Z1611 
% INDEXEC/SEQUENTIAL - MAY THIS FILE CONTAIN DUPLICATE 
| yA KEYS. | 
Fre. IS-KEY.OFF SET BITC16) | Z1612 
b INDEXED/SEQUENTIAL - BIT OFFSET {N DATA RECORD TO 
% | BEGINNING OF THIS KEY. 
FRE. ISeKEY.SIZE BITCi2) | £1628 
7 Z INDEXED/SEQUENTIAL = BIT SIZE OF THIS KEY. 
FPe.IS. KEY. SIGNED. | 7 BOOLEAN | £1640 
Z INDEXED/SEQUENTIAL - THIS FILE CONTAINS SIGNED KEYS. 
FPBeISeKEY.~DECENDING | BOOLEAN a 41641 


rs INDE XED/SEQUENTIAL ~ THESE KEYS ARE IN DECENDING ORDER. 
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» 02 FILLER . BITC 2) “1642 
e O2 FPB. MINRECS iZE BITC24) | 21644 
% MINIMUM RECORD SIZE FOR VARIABLE LENGTH RECORDS 
° 02 FPE. HOSTNAME CHARC17) 
Z ONA/HOST SERVICES. 
A 
HsZ 
x 
ys 
ys 


TPH DECLARATIONS 
DEF INE ITPE.SIZE AS #144085 


y | 
DEFINE IPB-DECLARATION AS# 
DECLARE 01 DUMMY REMAPS IPE BITC1440)>» 
O02 FILLER BITC1192)>» 
O2 IPB.-HARDWARE CHARC1)> 
O02 IPBs«ARCHITECTURE. NAME CHARC10)>» 
02 IPBe-COMPILER-LEVEL GITCa)>» 
O2 IPB.MCP.~LEVEL BITCS8)» 
O2 IPBsARCHITECTURE-ATTRISUTES BIT(80)>» 
O02 IPB<DATA.SPACE.SIZE BITC24)» 
O02 IPB.PREJINIT.DATA-SIZE SIT(16)> 
O2 IP&-DATA.~PTR BITC16) 
#> 
h 
4 
rs 
Z 
y 4 
y 4 
HINTS 
% THE FOLLOWING DECLARATIONS MUST ALWAYS KEMAIN IN THE SEGINNING AND. 
Z THEIR ORDER MUST NOT BE CHANGED. THE FIRST THREE ARE RESERVED FOR THE 
& SDL INTERPRETER» THE KEST ARE FOR THE DUMP ANALYZER. 
Z 
irae HINTS BIT(2088)3 
DEF Nes a | 
 CESPATCH.WORD © AS #SUBBITCHINTS»00009024)4% HEX 000 
. ADDR -DP-PROC2 © AS #ASUBBITCHINTS200245024)4% HEX 018 
CISK -.TRACE.BLOCK.ADDR AS #ASUBBITCHINTS»00489024)84% HEX 030 


yA MASTER.GISNOU AS ASUBBITCHINTS»900722024)4% HEX 048 
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ne ee 


LUCNeINTERP.DICT 


K1i.-KO | 

NO. REINSTATES 
FIRE.UP-CONTROLLER 
NeSECOAND. COUNTER 
MCP LIMIT : 
HINTS.LAST.OVLY 
MICK. CEBUG.BIT 
CeNOTLOCKED 
DFH.DIR.-AD 
AUTO.-GUARD 3 
FIRE SYSTEM.BACKUP 


' FOUND.BACKUP.DESIGNATION 


INTERRUPT.DISABLE.BIT 
TRACE*SWITCHES © 
TRACEWORD 

TRACE «FLAG 

TRACE.OPT —— 
HINTS.FIRSTeQUEUE | 
ADCR.OF -COLD~START.VAR 
ADOR«OF -INTERRUPT.INFO 
MAXM 

ELOG eFULL 


NON-RELEASE MCP 


GISMO.LEVEL 


HI.RESOLUTION. TIMER. SET 
PSReCHANGE.BIT 


RELEASE-LEVEL 


FIRSTeLINK 


SYCOUNTER 


“SY eCNTRoMSK 
— SYePRIGK.TIME | 
- RESERVED.FORsINTERP.USE 


SYSTEMePACK .INF QO 


TRACE.PGORT. CHANNEL 


SYSTEM.UNIT 


— SYSTEM.PORT.CHAN 
 SYSTEM.PORT 
SYSTEM. CHANNEL 
 DUMMY.BIT.RESERVED 
-SYSTEMsUNITEU 


CONSOUL .SWITCHES 
MICRO.TRACE FLAG 
GISMO.TRACE SPACE 
FORT -CHANNEL.TABLE 


BYPASS.CLEANUP 


CONTRL-CRD.FLG 


-EXT.RESULT.DESC.CHAIN 
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#SUBBITCHINTS» 00960033) #% 
#SUBBITCHINTS» 01299024) #2 
#SUBBITCHINTS» 01539001 #2 


—ASUBBITCHINTS 01549001) 42. 


ASUBBITCHINTS» 01552001 )42% 
#SUBBITCHINTS»01562002) 42% 
ASUBBITCHINTSs 01582024)42% 
#SUBBITCHINTS» 01825024) #2 


HEX 


Lit 


HE X 


HEX 
HEX 
HEX 
HEX 


HEX 


HEX 


AS #SUBEITCHINTS»>020651)4Z HE 


#SUBBITCHINTS» 02072001) #% 
#SUBBITCHINTS» 02085024) 42 
#SUBBITCHINTS» 02325003) #% 
#SUBBITCHINTS+ 0235003) #2 
#SUBBITCHINTS +02 38001) 4% 
#SUBBITCHINTS» 02 399001) a% 
#SUBBITCHINTS» 0240027 )8#z 
#SUBBITCHINTS» 02 439024) #% 
#SUBBITCHINTS»0261°003 282 


#SUBBITCHINTS 202642003) 42 


ASUBBITCHINTS202672024)42 
#SUBBITCHINTS 20291 >024) 82 
FSUBBITCHINTS»03152024)82Z 
ESUBBITCHINTS»903392004)8&% 
ESUBBITCHINTS +03 4350013#2Z 
ASUBBITCHINTS»0344%001)82% 
ASUBBITCHINTS»03 45-008 )#Z 
ASUBBITCHINTS» 03532001) 4% 
AFSUBBITCHINTS»03542001)82Z 
ASUSBBITCHINTS»0355%008 42% 
ASUBBITCHINTS»903639024)84% 
ESUBBITCHINTS»0387%004)22Z 
ASUBBITCHINTS»® 03 91%020)48Z 
ASUBBITCHINTS»0411+2020)#42 


ASUBBITCHINTS-04312020)42— 


#SUSBITCHINTS 204512020) 4% 
ESUBBITCHINTS»#0471-024) 8% 
ASUBBITCHINTS 204959007) 4% 
ASUBGBITCHINTS 20502012 )82Z 
ASUBBITCHINTS»:05027007 )#2% 
ASUBBITCHINTSs 05029003) 42% 
ASUBBITCHINTS»05052004 )#Z 
¥SUBBITCHINTS2® 05092001) 82% 
ESUBBITCHINTS 20510 »004)8#2 
#SUBBITCHINTS»05142028) 42 


ASUBBITCHINTS2 05422001) 48% 


#SUBBITCHINTS 20543024) #2 
ASUBBITCHINTSs 05679192) 48% 
#SUBBITCHINTSs 07599001) #2Z 
#SUBBITCHINTS» 0760001) 42 
ASUBBITCHINTS» 07619024) 8% 


HE X 
HEX 


HE XxX 


HEX 


HEX 
HEX: 
HEX 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HE X 
HEX 


HEX 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


060 
061. 


099. 


O9A 
098 


O9C 
09E 
0u6 


X OCE 


OCF 
oD0 
OE 
O£B 
CEE 
GEF 
OFO 
OF 3 
105 
108. 
108 
123 
138 
153 
157 
158 
159 


161 


162 


163 — 


168 
163 
187 
198 
LAF 
1C3 
1D7 
1EF 
1F6 


1F6 


iFo 
1F 9 
1D 
LFE 
202 
21E 
Z1F 
237 
2F7 
2F8 
2F 9 
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TeFILES 
MICR-COUNT 
CHANGE.SIT | 
RELEASE.VERSION 
FILLER 
IGAT.POINTER 
IOAT-END 
SYSTEMePAUSE.DESC 
PSEUCO.TABLE-ADCRESS 
DATE .SET 
TIME.SET 
GISMO-OPTIONS 
CHECK.RA 

COMM. TRACE 
GISMOQ.TRACE 
XFERe24 

CMS 

READR-SGRTR 

ANY «MAG.TAPE 
NRZoMAG. TAPE 
CASSETT 
PAPER.TAPE 
DATA.~COMM 
FORT.CEVICES 
EXCHANGES 

FORT «TRACE 
B1720.CUDE 


B1860-CODE 


MPROC.CUCE 
B1lE30-CUDE 


READ.AFTER.WRITE- CHECK 


PRIGRITY.MEMORY .MGMT 
FIFO.MEMORY -MGMT 
THRASHING.jCCUNT ING 


RESERVED FOR SYSTEM/ INIT 


CCHeSCRATCHeMEM-ADDR 
SeMCP.TRACE 
INTERRUPT.SWITCH-SET 
CISAELE~INTERRUPT.SW 
MEMORY.USAGE.BIT 
MINoMEMORY. SIZE 


| BEEN-THRU.MCP.BE.HERE 


REMOTE .REROUTE 
CUEUE-REROUTE 
DISK.MONITOR.~GISNO 


SPCLOGeNEEDS.~TRANSFERING 
INTERPRETER. TABLE. ADDR 


SPU. PORT.CHAN 
SPC .PORT © 
SPO CHANNEL 


2219 0144 (CB) SEC. 


AFSUBBITCHINTS» 0785008) 4% 
#SUSBITCHINTS2 07952006)8% 
ASUBELTTCHINTS+ 079920901 #2 
ASUBETTCHINTS» 08902008) 42 
FSUBBITCHINTS»98082001)98@2 
EFSUBBITCHINTS 208 C92024)4% 
ASUBBITCHINTS 298332024) 4% 
ASUBBITCHINTS 208572024 )4zZ 
ESUBBITCHINTS 208 812024) 42% 
¥SUBBITCHINTS 20905001 )4z 
ASUBBITCHINTS» 09062001 )#% 
ASUBBITCHINTS 29090720024) 82 
#SUBBITCHINTS»# 09072001) 8% 
ESUBBITCHINTS»0908-~001 )42Z 
#SUBBITCHINTS20909e001)42 
ASUBBITCHINTS» 0910001) 42% 
ASUBBITCHINTS 20911001 )48% 
AESUBBITCHINTS»0912°001 ) 4% 
¥SUBBITCHINTS»> 09132001 )42z 


#SUBBITCHINTS» 09149001) 4% 


ASUBBITCHINTS +0915 5001) #Z 
FSUBBITCHINTS» 09160001) 42 
ASUBBITCHINTS» 0917001 )8% 
@SUBBITCHINTS 209182001 94% 
#SUBBITCHINTS» 0919» 001) 4% 


ASUBBITCHINTS»09202001)22% 


#SUBBITCHINTSs 921-001) #2 
ASUBBITCHINTS»09222001)#2 
FESUBBITCHINTS 2092342001 )8% 


ASUBBITCHINTS2® 09242001382 


#SUBBITCHINTS+09252001 )#z 
ASUBBITCHINTS» 09262001742 
ASUSBITCHINTS209272001)82% 
#SUBBITCHINTS20928%001) 8% 
4SUBBITCHINTS 209299002 )4% 
ASUBBITCHINTS#09319024)82 


HSUBBITCHINIS20955%001)84% 


#SUBBITCHINTS»0956%001) 4% 
#SUBBITCHINTS»9957»001 #2 
#SUBBITCHINTSs 09589001) 4% 
#SUBBITCHINTS» 0959012 )#% 
ASUBBITCHINTS+0971°001 ) #2 
#SUBBITCHINTS» 0972001 )#2 
ASUBBITCHINTS» 09730001) a% 
#SUBBITCHINTS +09 749004) #2% 
#SUBBITCHINTSs 0978001) #z 


HSUSBITCHINTS9 09799036) #2 


ASUSBITCHINTS21015007 #7 
ASUBBITCHINTS»1015%003)42% 
#SUBBITCHINTS»10182004)#42 
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111 
HEX 311 
HEX 319 
HEX 31F 
HEX 320 
HEX 328 
HEX 329 
HEX 341 
HEX 359 
HEX 371 
HEX 389 
HEX 38A 
HEX 388 
HEX 388 
HEX 38C 
HEX 38D 
HEX 365 
HEX 36F 
HEX 390 
HEX 391 
HEX 392 
HEX 393 
HEX 394 
HEX 395 
HEX 396 
HEX 397 
HEX 398 
HEX 399 
HEX 394A 
HEX 398 
HEX 39C 
HEX 390 
HEX 396 
HEX 39F 
HEX 3A0 
HEX 3A1 
HEX 3A3 
HEX 388 
HEX  3BC 
HEX 380 
HEX 3BE 
HEX 36F 
HEX 3C8 
HEX 3CC 
HEX 3CD 
HEX 3CE 
HEX 302 
HEX 3D3 
HEX 3F7 
HEX 3F7 
HEX 3FA 
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Kevecian. SPU-DESC 
- SPO.SQ.A0 | 


CHANNELS.NOT. PRESENT 
LAMP FLAGS | 


 LAMP.DISK. TABLE.ADOR 


OAS 


VARIABLE.LAMP.ALL -USER.CPU 
VARIABLE.LAMP.ALLeUSER-CODEsOVLY ASMSUBBITCHINTS»111491)9% 
VAR IABLE.LAMP. ALL.USER.DATA~ CVLY AS#SUBBITCHINTS» 111551) #2 


VARIABLE-LAMP.SMCPeCPULIST.BIT 
VARIABLE.LAMP.SMCP.OVLY | 


SEGMENT »HALT 

HALT .MASK 
MMCP..SEGMENT.HALT 
MMCP HALT. MASK 
CONPILE.TIME.OPTIONS 
RELEASE .VERSION.MCP 
CEGUG.OPTION | 
6 MORE OPTIONS 


CONTROL.MEMCRY.SIZE 


MCP.VERSION.DATE 
MAIN-MEHORY «SIZE 
DM.GLOBALS 
GUEUE.ROOT. ADDRESS 
MMCP.CATA.PTR 
DC.CHAIN 

MESSAGE sLIST.TAIL 
ABSOLUTE.S. MEM 
SeCeQeEY 


Me Cc @ G.EV - 


SeoMeQ.EY 
$21.0.EV 

MoM QeEV 
MeI.Q-EYV 
MeCAUSE.LOCK 
MeEV.FILLER 
MoMCPoLR 


 WeMCP.SOTHERS 


MoLRU. SPACE 
MeNUMBER-PAGES 
TRACE.ADOR 


— MeMCP.Q.IDENT 
COMM .SPLITTER.ADOOR 
* COMM.SPLITTER.LENGTH 


FIRST-RUN.UNIT | 


 INDEX.SEQ.USER~ COUNT 


MIKES HALT.jSPACE 


GISMO.-OPTIONS.TWO 


LAMP .CPU.BASE 
FIXED.LAMP.DISPLAY 
VAReLAMP.BASE 


3746 
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sSUBEITCHINTS:1022>024)0. 
#SUBBITCHINTSs 1046524) 42% | 
H#SUBBITCHINTS+10702016) 42% 
#SUBBITCHINTSs 10862024) 82 


ASUBBITCHINTSs 11102024 )4#% © 


til 


HEX 


HEX 
HE X 
HEX 
HEX 


ASHSUBBITCHINTS» 111351) #2 


ASUBBITCHINTS+#11345004) 4% 


#SUBBITCHINTS»# 11 3602404% 


ASUBBITCHINTSs» 11622004)#4Z 
ASUBBITCHINTS#1166°024) 42 
#SUBBITCHINTS» 11902008) #Z 
#SUBBITCHINTSs 1190001 08% 


#SUSBBITCHINTS»11912001)42 


#SUBBITCHINTS» 1192%006)8z 
ASUBBITCHINTS 21198004) 482% 
#SUBBITCHINTS»1202°016) 42% 


ASUBBITCHINTS 212165012 )42% 


#SUBBITCHINTS» 1230024) a2 
#SUBBITCHINTS» 12540024) 82% 
#SUBBITCHINTS» 12785024) 482% 
#SUBBITCHINTS»# 1302°024)4% 
#SUBBITCHINTS+13 26024) 82 
#SUBBITCHINTS» 135020120482 
#SUBBITCHINTS»1362001) 48% 


#SUBBITCHINTS 913635001987 


#SUBBITCHINTSs 13649001) 4% 
#SUBBITCHINTS+15655001)#2 
#SUBBITCHINTS+ 13662 001)8% 
#SUBBITCHINTS» 13675001) 8% 
#SUBBITCHINTS»13685901)82 
#SUBBITCHINT S91 369%005) 2% 
#SUBBITCHINTS» 13740024) 8% 
#SUBBITCHINTS+ 13989048) #% 


#SUBBITCHINTS+1446%096)#2% 


#SUBBITCHINTS+1542°024)#2% 
ESUBBITCHINTSs 15662024) 42 
#SUBBITCHINTS»15902008)#zZ 
#SUBBITCHINTS» 15989024) &2Z 
#SUBBITCHINTS»®1622%016)#% 
ASUBBITCHINTSs16 382024) 82% 
¥SUBBITCHINTS» 1662008) 4#Z 
#SUBBITCHINTS»16702096)8% 
¥ESUBBITCHINTSs 17662024) #% 
ASUBBITCHINTIS»17662001)#82Z 
#SUBBITCHINTS2:1767001)82 


#SUBBITCHINTS+ 1768001 )#z 


ASASUBBITCHINTSs 112291) 4% 
AS ASUBBITCHINTS »112852)42 


HEX 


HEX 


HE X 


“HEX 
HEX 


HEX 
HE X 
HEX 


HEX 


HE X 
HEX 
HEX 


HEX 


HEX 


HEX 


HEX 
HE Xx 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 


HEX 


HEX 


HEX 
HE X 
HEX 


HEX 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
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VAReLANP.CPU.OVLY 


-VAR.LAMP.10 


VAR «LAMP .BARGRAPH 
MEMORY. SASESUNIT.S5 

17 MORE CISMO OPTIONS 
LAST.MEM.LINK 
SMCP.CPU.PRIORITY 

14 FREE ONES 


JOBS.»SWEEPS «BEF ORE«UECAY 


SYSTEM.IC 
CPU.ID 
O=ERROR 1=81710 
3=81830 
MEMORY-IC 
O=OEF AULT. 
IU-1D | 
O=DEF AULT 


ELOG eHERE 

QLOCK.COUNT 

CHIP .TAGLE. ADDRESS 
MIX MEMORY PRIORITIES 
STOP.SCHEDs- INPUT 


NSEC. DISABL « THRASH.F AULT 


CISABLE.jTHRASHING.FAULT 


MCP .VARTABLE.MEM.PRIORITY AS #SUBBITCHINTS 19459005) #2 


FILLER 
MEM .SWEEP.PENDING 
SAMPLING.CLOCK 


~ SAMPLING. INTERVAL 
 MEM.SWEEP. INTERVAL 


MAX .SWEEP. INTERVAL 
MEMJEXTEND.j COUNT 
CVERLAY.CUUNTER 

OVERLAY .TARGET 

MCP -SWEEPS.»GEFORE.DECAY 


‘MEMeDUMP.COMPLETE 


MAX »MEM.PRIGRITY.INSMIX 
CONTROLLER. SCHEDULED 

2 FREE ONES 

FOUNTAIN — 

CLEAR.START «REQD 
SCHEDULER. BLOCK «COUNT 

1 AVAILABLE BIT 
CCPU.DATA 
SLAVE.PRESENT 

SLAVE .PORT. CHANNEL 


2219 0144 (Hh) SEC. 


AS #SUBBITCHINTS»# 17692001) 42 
AS #SUBBITCHINTS»17702001) 42 
AS #SUBBITCHINTS»s17 71001) 42% 
AS #SUBBITCHINTS»17 722001) 4% 


AS #SUBBITCHINTS» 17900024) 42% 
AS #ASUBBITCHINTS»181420246)42 
AS ASUBBITCHINTS» 18 389014)4% 
AS ASUBBITCHINTS»1852-010)8&Z 
AS #ASUBBITCHINTS»186229012)42% 
AS #SUBBITCHINTS»91862°0004)8#% 
2=61720 

4=81860 
AS #ASUBBITCHINTS»1866»004)4Z 


L=CORRECTABLE S-MEMCRY PARITY 


AS #ASUBBITCHINTS» 15702004) #2% 


AS #SUBBITCHINTS9 18 749024)8#Z 
AS #SUBBITCHINTS»1898»004)#2% 
AS#SUB3ZITC HINTS9® 19029024) 42% 
AS #S5SLEBITCHINTSs19262016)82 
AS #SUSBITCHINTS®#19422001)42% 
AS #SUBBITCHINTS#19435001)#% 
AS #ASUBBITCHINTS#®19440001)42% 


AS #SUBBITCHINTS*®1950»002) 4% 
AS #SUBBITCHINTS+# 1952001) 4% 
AS #SUBBITCHINTS#1953%006) 8% 
AS #SUBBITCHINTS»1959»006) #z 
AS #ASUBBITCHINTS91965% 010042 
AS #SUBBITCHINTS»®19 755010) 8% 
AS #ASUBBITCHINTS»#1985%002) 8% 
AS ASUSBITCHINTS 919875008) #Z 
AS #SUBBITCHINTS®1995»008) #% 
AS #SUBBITCHINTS»2003°010) 4% 
AS #SUBBITCHINTS» 2013001) 4% 
AS #SUBBITCHINTS» 2014005) 8% 
AS #SUBBITCHINTS+20195001) 4% 
AS #SUBBITCHINTS» 20202002) 4% 
AS #SUBBITCHINTS» 20222024) #% 
AS #SUBBITCHINT S» 2046001) #Z 
AS #SUBBITCHINTS» 20475008) #% 
AS #SUBBITCHINTS»2055001) 42 
AS #SUSBITCHINTS» 20569024) 42% 
AS #SUBBITCHINTS» 20 80+001 az 
AS #SUBBITCHINTS» 2081007) #2 
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HEX 669 
HEX 6EA 
HEX 6£8 
HEX 6EC 
HEX O6FE 
HEX 716 
HEX 72E 
HEX 73C 
HEX 746 
HEX 746 
HEX 74A 
HEX 74E 
HEX 752 
HEX 76A 
HEX 76€ 
HEX 786 
HEX 796 
HEX 797 
HEX 798 
HEX 799 
HEX 79E 
HEX 7A0 
HEX 7AL 
HEX 7A7 
HEX  7AD 
HEX 787 
HEX 7C1 
HEX 73 
HEX 7C8 
HEX 703 
HEX 70D 
HEX 7DE 
HEX 763 
HEX 7E4 
HEX 7E6 
HEX 7FE 
HEX 7FF 
HEX 807 
HEX 808 
HEX 820 
HEX 821 
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The following is a tist of CSG STANDARD FILE ATTRIBUTES available 
through 861700781800 MASTER CONTROL PROGRAM CMCP). Some 
attributes are available in subset forse tailored to the 
61700/81800 environment. 


These attributes ail may be accessed by system programs using the 
GETe-ATTRIBUTE / CHANGE-ATTRIBUTE communicates. Restricttons on 
the accessibility of these attributes are Listed in abbreviated 
form immediately foltouning the attribute name and number. § This 
information is provided in 4 elements ( A» de Cx» ODO) having the 
following meanings meanings: 


= attribute has meaning for these devices 

= attribute is read only» write only» or read/write 

= when may attribute be read / when may attribute be written 
attribute type CBQULEAN» INTEGER» STRING ETC.) 


a ea = = 


ARE AADDRESS ~-~1 | COFHe AREA. ADDRESS) 


DISK ONLY+ READ/WRITE> OPENED/OPENELCs INTEGER 


- The acer ranks AREAADDRESS returns the physical. disk address of 
an area of a disk file. The AREAADORESS attribute requires an 
indexs the area numbers as a parameter. When the AREAADDRESS 
attribute is set» if the area has not deen allocated» the vatue 
to be assigned to the attribute is used as an absotute address 
into the family member and space is atlocated if available. 


Utherwise» an attribute error is givens Area numbers begin at 
zero CQ). 


AREAALLOCATED ~~~2  COFH.AREA.ADORESS) 


DISK GQNLY» REAC ONLY» ANYTIME» BOQDLEAN 


The attribute AREAALLOCATED indicates whether or not a specific 


area of the associated physical file has been attlocated. The 
AREAALLOCATED attribute requires an index» the area numbers as 
a parasgeter. The S8P iwplementation does not attow for 


CUPLICATED files. Area numbers begin with zero (0). 
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“AREALENGTH ---3 ae CF Pde AREALENGTHD 

DISK ONLY,  READ/WRITEs | ANYTIME/CLOSEC> —« INTEGER 


The value of the attribute AREALENGTH is the number of 
FRAMESIZE units in an area cf the disk file. | tg 
AREAS 7-400 (FPB.AREAS) a 
CISK ONLY, READ/WRITE» | ANYTIME/CLOSED» INTEGER 
The vatue of the attribute AREAS is the maximum number of areas 
a disk file can be aflocated. If AREAS ts zero» the default 
value of twenty (20) is used when creating a new disk file. 
The maxisua value is 105. | | | 
 ATTERR ---5 | - CFPGeATTRIBUTE -ERROR) 
GENERAL» READ ONLY = ANYTIME> BOOLEAN 


The attribute ATTERR returns true if the last fite attribute 
action was in errore The ATTERR attribute is reset to faise 


- after a successful attribute action. | Attribute errors are. 


nonfatal but may be informative to the object program. 


Notes a similar function may be performed by the user program 
by checking RS-REINSTATE.MSGe-POINTER immediately following an 
attribute request. | | 


AVAILABLE ---6 —— 
GENERAL» — REAC ONLY» ANYTLME> INTEGER 
The AVAILABLE attribute attempts to open a file and» when 


jimpossibie reports the reason. for. the failure Without 
suspending the program and requiring operator intervention. 


However» with the use of the AVAILABLE attribute ine operator 


(stilt must Eeateve duplicate file conditions. 


When tested AVAILABLE returns: | 
; 0 = the permanent file exists but is not avaitadle 
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Cie.» the file is tocked out). 


1 = the file is now open and. assigned to the togical 
file. (CIf the fite was not previously opens it was 
opened.) 

2 = the permanent fite does not exist. 

4 = unmatched serial number. 

10 = no resources are available tc open the file. 
BACKUPFILENAME -“~7 (FP3.NAMES) 


PRINTER/PUNCH> READ GNLY» OPEN», STRING 


The SACKUPFILENAME attribute returns the file name of the 
intermediate file used for the ltogical file. 


BACKUPKINCT ~---8 CFPB.BACKUP ) 


PRINTER/PUNCH» READ/WRITE> ANYTLME/CLOSE D> INTEGER 


The BACKUPKIND attribute indicates the peripheral associated 
with a tlogicat file as an intermediate peripheral. The 1/70 
operations of the logical file witt take ptace = an the 
intermediate file but all the restrictions and capabilities of 
the peripheral specified by the KINC attribute will be applied 
to the togical file. After the logical file is closed» the 
interaediate file may be transferred to a peripheral as 
specified by the KIND attributee. The TITLE attribute specifies 
the title of the file when it is ultimately transferred to the 
peripherat specified by the KIND attribute. The file name of 
the intermediate file may be determined with the BACKUPFILENAME 
attribute. | 


This attribute maps directly to FP8.-BACKUP with the following 
meanings: 00 FITHER TAPE OR OISK 

10 DISK 

80 TAPE 
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BACKUPPERMITTED ---9 = 8 — CFP Be BACKUP.OK FP3.HDWRE OK) 
PRINTER/PUNCHs = READ/WRITE> ANYTIME /CLOSE D> INTEGER 


The SACKUPPERMITTED attribute indicates whether an intermediate 
peripheral may be associated with the Logical file. The values 
are: ~* * 
DONTCARE - Paeerwedia ce peripheral usage attlowed 
DONTBACKUP = no intermediate peripheral usage allowed 


o>» «<Q 
ot 
2 MUSTBACKUP ~ intermediate peripheral usage is required 


it OW ot 


BLOCK ---10 oe (F13.8LOCK COUNT) 


CISK/TAPEs = READ ONLY» OPENED» INTEGER 


The attribute #6LOCK returns the number of the Logical lock 
referenced in the. fast 1/0 statement. The MCP returns a one 
relative value. or on | 


BLUCKSIZE ---11 | CFPB.BLUCK SIZE) 


GENERAL» © REAC/WRITEs ANYTIME/CLOSED» INTEGER | 


The vatue of the BLOCKSIZE attribute is the Length of a vlock 
in FRAMESIZE units. S8LOCKSIZE may be set only when the file is 
closed. If BLOCKSIZE is less than MAXRECSIZE>» it will be set 
to MAXRECSIZE unhen the file is opened. The default value of 
BLUCKSIZE is dependent upon the physical unit CKIND) assigned 
to the file and the value of the attribute MAXRECSIZEj See the 
discussion under the MAXRECSIZE attribute. 


“BLOCKSTRUCTURE ---120 = CF PB. VAR TABLED 


GENERAL» § KEAC/WRITE* ANYTINE/CLOSED+ — INTEGER 


The attribute BLOCKSTRUCTURE specifies the format of the 
records and the structure of the file. | 


‘The. mnesonics and eeoninge of the BLCCKSTRUCTURE attribute are 
as foltows:. 


0 = FIXEC blocked or unblocked fixed-length records. This value is 
e the defauit value for SEO eno Cemunes 


a 
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2 = VARIABLE variable length records. The record length is contained 
in the first four characters of the record. 


WUFFERS ~--"13 7 (CFPO.BUFFERS) 


GENERAL» READ/WRITE» ANYTIME/CLOSED» INTEGER 


The attribute BUFFERS specifies the number of BUFFERS assigned 
to a fite. If the number of buffers is not specified a maximum 
of two (2) buffers wilt . be assigned. Gnty in exceptional 
conditions do more than two buffers add tc the efficiency of 
the I/70 operations of a file. | 


CREATIONDATE ---19 | COFH.CREATIUN.DATE) 


” 


DISK» . READ ONLY» ANYTIME» — INTEGER 


The attribute CREATIONDATE returns the creation date of a file. 
The value of the CREATIONDATE attribute is returned as_ an 
integer in the form YYODD» where YY is the year» and DDD is the 
day in Julian form.s When a file is created» "TUDAY'S DATE" is 
afways used as the creation date of the file. 


CURRENTBLOCK ---21.. | . CFPBABLOCKSIZE) 


GENERAL» § READ ONLY» — ANYTIME> = INTEGER 


The CURRENTELQCK attribute returns the size in FRAMESIZE units» 
of the btock currently in use. Normatly» this value is the 
Same as the vatue of the attribute SLOCKSIZE. The vatue of 
CURRENTBLOCK becomes of interest for a tape file when the 
system encounters a short block. Refer to the STATE attribute 
for more information. 
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DENSITY ---24 ss CF PB.UENSITY) 

=—— READ/WRITE>  ANYTIME/CLOSED» — INTEGER 


The attribute CENSITY specifies the recording density of a 
pagnetye: tape file. | | 


The mnemonics and meanings of the DENSITY attribute are as 
follows: = | 
BP I200 


0 = 

1 = BPI556 
2 = BPYT8OO 

3 = BPI16900 

4 = 


BP.16250 


‘BPI556 is not valid for a 9-track tape. gPI1600 is valid only © 
for phasetencoded tapes. There are two exceptions in the use 
of the CENSITY attribute. In the creation of a multi~fite 
tape» the density of the first file is used for atl subsequent 


files. In the creation of a wmulti~reel file>» the. density 
setting remains constant from reel to reet as tong as it is 
vatid for the tape unit. The default density value is the 


density setting of the tape unit selected for output fites and 
the density at which the tape was written for input files. 


DEPENCENTSPECS Benes: § (CFP3.DEF AULT) 


GENERAL» READ/WRITEs ANYTIME/CLOSED> BOOLEAN 


Af the attribute DEPENDENTSPECS is true» the format of the 
records and the structure of the tlogicat file are to be 
 detersined by the structure of the associated Labeled permanent 
tile. That is ‘to. say» the attributes BLOCKSTRUCTURE>» 
MINRECSIZE» MAXRECSIZE» S8LOCKSIZE» and FRAMESIZE with be 
changed to agree with the values used to create the file. If 
no permanent file is associated with the ltogicat file Cie. a 
new file is being created)» or if the permanent file is 
UNLABELEL» the attribute DEPENDENTSPECS is ignored. | 
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OIRECTION --~26 | (FPBREVERSE) 


TAPE/PAPER TAPE READER» REAC/WRITE>» ANYTIME/CLOSED> INTEGER 


The attribute. DIRECTION indicates the direction in veh 
records wilt be accessed from a file. 3 


The anemonics of the DIRECTION attritute are as follows: 
0 = FORWARE : 
1 = REVERSE 

The default ere is FORWARD. 


Onty S8LOCKSTRUCTURE equal to FixXED files can be read in a 
KEVERSE CIRECTION. 
EXTMOCE ---29 CF PB.CODE.TYPE) 
GENERAL» REAC/SWRITE» © ANYTIME/CLOSEC> INTEGER 


The attribute EXTMODE specifies the external or physical 


character size Cmode) of the records ina file. The mneronics 
are as foltows: 


G6 = EBCDIC C8~bit) 

1 = ASCII C8~bit) | 

2 = BCL Co~bit) 

3 = BINARY Cword moder binanve storage unit. For 
card fite 12 bits per columns» 960 
bits per record). 

4 = HEX C4~bit packed deciaal) not implemented 


by SBP. 
UCL is not a valid EXTMODE when creating a file. EXTMODE wilt 
be changed to EBCDIC in oe CaSse@e 


The EXTMODE attribute can be overridden by the phystcal made of 
a@ permanent file or unit type. 


The EXTMOCE of datacom files CKIND equal to REMOTE) or console 
files CKINO equat to SPO) can have only E@8CDIC and BINARY for 
their EXIMGDE vaiues. 


The defautt value for the EXTMODE attribute is EBCOIC. 
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FAMILYINGEX ---30 > CFPB EU. DRIVE) 


DISK ONLY» READ/WRITE> ANYTIME/ANYTIME> INTEGER: 


The attribute FAMILYINOEX indicates the drive or unit of 
systems disk upon which the areas of the associated physicat 
file are allocated. If the FAMILYINCEX is zero (0)» disk areas 
are allocated in the system's normal manners Untess overridden 
Dy setting the FAMILYINOEX for a specific areas the value of 
the FAMILYINDEX attribute when the fite is cpened is used to 
attocate each area cf the file. 


The FAMILYINDEX requires an index» the area numbers» as a 
parametere | 


The SEP implementation allows FAMILYINDEX to Ge set anytime. 
Howevers due to the non-standard nature of the multictpack file 
- gaplementations» FAKILYINDEX must be set to an element of system 
| diske 
FAMILYNAME ---31 | CFPB.PACK.ID) 


‘DISK ONLY,  READ/WRITE> | ANYTIME/CLOSEO+ = STRING 


The attribute FAMILYNAME indicates the family on which the 


physical file is located. FAMILYNAME must be a = simple 
identifier. The default FAMILYNAME is “* *™ implying system 
disks | 

NOTES The members of a disk family must be togically 
equivalent devices. Mass storage devices are constdered 


fogically equivalent when they have a common file and directory 
structure and where the segment (Cor sector) is of the same 
fength and is addressed in the same @#anner-. | 
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FILEKINO ---32 CF PBeFILE* TYPE) 


DISK ONLY»  &EAQ/WKITE> ANYTIME/ANYTIME> INTEGER 


The FILEKIND attribute describes the internal structure and/or 
purpose of a record of a disk file. ; 


NOTES: Onty data files are expected to de portable between 
systems. ; 
FILENAME ---33 ) CFPBeMULTL«FILE.ID FP8.FILE.10) 
GENEKAL> REAC/WHITEs = ANYTIME/CLOSED+ = STRING 


The attribute FILENAME is an externat file name and 1s used to 
associate a togical file with a physical or permanent file. 
The default FILENAHE for the file is the value of the INTNAME 
attribute. 


“FILESECTION “ee $3 CFP3-eREEL) 


TAPE ONLY» REAC/WRITE> ANYTIME/CLOSED» INTEGER 


The attribute FILESECTION is the iSO» 8SI» and ANSI file 
section number of the first file header tabel record. The 
initial and default FILESECTON vatue is one (1). The maximum 
value for FILESECTION is 9999. The FILESECTIGN attribute is 
tile~relatives that is» the vatue of FILEStCTIUN is tncresented 
onty when the file is invioved in a reel switch Cthe data of 
the file requires more than one physical reet of tape) and the 
value of FILESECTION is reset to one (1) when the fite its 
closede . | 


The FILESECTIGN attribute is usec in permanent tape file 
assignment along with the attributes IND» TITLE and» when 
appropriates CYCLE and VERSION. The FILESECTION attribute is 
also used in automatic input reel switching. 
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FLEXIBLE ---36 5. (FPB.FLEXI@LED 


DISK ONLY. READ/WRITE> ANY TIME/CLUSED> BOOLEAN 


The attribute FLEXIBLE indicates whether cr not a disk file can 
be allocated more areas» if needed» than the number originally 
| specified by the. AREAS attribute. The setting of FLEXIBLE is 
'  ggnored if the fite has been crunched or is DUPLICATED or is 
ALLOCATE-ALL. AT.OPEN. ps | | | 


Setting FPB«FLEXISLE is equivatent to requesting @a@ maximum 

number of areas of 105. This requirement is due to the nature 

of the MCP*s variable Length Disk File Headers. Sufficient 

header space must be reserved at open to handle a maximum 
number of areas. | 


FOOTING ---1027 (FP3sFOOTING) + 
PRINTER ONLY,  READ/WRITEs = ANYTIME/ANYTIME> INTEGER 
The attribute FOOTING defines the footirg to be recognized by 
the MICRO~.MCP formatting procedures when formatting an output 
print file. 7 . , | 
 -FRAMESIZE ---38 —  (FPB.FRAMESIZE) 
GENERAL» REAC/WRITE> | ANYTIME/CLOSED> INTEGER 
The attribute FRAMESIZE indicates the number of bits to be 
transferred as a unit of data. The vatues of the attridutes 


MINRECSIZE» MAXRECSIZE» BLOCKSIZE» AREALENGTH» CURRENTRECORD? 
and CURRENTBLOCK are expressed in FRAMESIZE unitse 


The native mode of operation (due to bit addressibility) is one 
C1) bit. 
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LNINAME -"-42 > (FPS eFILE.NAME ) 
GENERAL»  REAC/WRITE> ANYTIME/ANYTINE® STRING 
The attribute INITNAME is the internat file name. File labet 


equation is accomplished by matching the internat fiie name to 
the file name on control cardse The default internal file name 
is generated by the compilers. The INTNAME attribute can be 
programmaticaliy changed to any simple identifier less than or 
equal to 10 characters Ciee A/B is rot a valid internal name). 
The attribute may onty be set while the logicat file is closed 
and not assigned to a physical files When the internal name of 
a file is changed» label equation action is initiated using the 
new internat namee 


KIND ---43 CF P3.HOWR) 


GENERAL» READ/WRITES ANYTIME/CLOSED» INTEGER 


The KIND attribute indicates the peripheral associated with the 
dogical file. Each togical file has exactly one vatue_ for 
INC. Peripherals may be specified by tro KINO*ss a 

"specific" KIND which indicates onty that peripheral and a 

"general*™ KIND which indicates a set of specific KINOs. 


61 = DATA_RECORDER_280 
60 = CARD_PUNCH . 
- 41 = FOCI a 
62 = READER_PUNCH_PRINTER 
20 = PAPER_TAPE_READER 
-20 = PAPER_TAPE_REACER_1 
70 = PRINTER 
40 = READER_SORTER_2 
40 = READER_SORTER 
10 = DISK_FILE 
10 = DFC_1 
11 = DCC_2 
11 = DCC.1 
11 = DPC_1. 
11 = DISK_PACK 
10 = DISK 
10 = DFC_3 
52 = REACER_96 
30 = PAPER_TAPE_PUNCH 
50 = CARD_READER 
90 = SPO 
99 = 


SPO_2 
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82 = MTC_2 
81 = MTC_1 & TAPE_7 
83 = MTC_3 
80 = TAPE 
82 = TAPE_9 
84 = CASSETTE 
72 = PC_5 


The default value for KIND is compiler dependent. (NOTE: The 
STANDARD default vatue is READER if the togical file is opened 
for input and is PKINTER if the togical fite is opened for 
output.) . 2 : | 


LABEL -""-4400 22 2 CFP SsLABEL_TYPE) 


GENERAL» REAC/WRITEs ANYTIMESCLOSEC» INTEGER 


The attribute LAKEL indicates whether or not the file has Label 
reccrdse | | : 


Khen creating a LABELed file» the Icgical 1/0 subsystem writes 
CSG STANCARD LABELS as the beginning and ending records of the 
file. For a tape file» the lLatelts are followed by a tapemark>» 

. for printer files» by a skip to chanreltl ore. When creating an 
UNLABELEC file> the tabel records are not ircluded.e. Punch 

tiles must be LABELED unless using Cirect i/0. | | 


The CSG STANDARD mnemonics for LABELED fites are “ERCOICLABEL™ 
and “ASCIILABEL". fhe mnemcnics for. UNLABELED files are 
“CMITTED" and “OMITTEDEOF™. The SEP imptlemertation differs 
from the  STANDARC in the_ fottowing way: "ASCIILABEL™ and 
 "EBSBCDICLABEL™ are determined by Looking at how the VOLi_ Lavel 
was written via "SN". They may not be specified at open times 
or through a change attribute request on "LASEL". A label type 
of “OMITTEDEOF™ likewise has no meaning. OMITTEDEOF 
information is supplied through an “FR" statement after 
compdeting a reel in response to the MCP*s request for the next. 
reel. | 
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Meaningful values for the attribute LAKEL are as follows: 


0 = contains "EBCUICLABEL” 

1 = contains “ASCIILABEL" 

2 = contains no tabels ~ “OMITTED” 

3 = contains no tabels ~ "OMITTEDEOF" 
LASTRECORD ---46 (COFH.EGF POINTER) 


CiSK ONLY» |. READ/WRITEs ANYTIME/ANYTIME » INTEGER 


The attribute LASTRECOKD returns the record number of the last 
record tn the physical file» calculated in terms of the 
blocking of the logical file. LASTRECORD way not be correct 
during periods when the file is being expanded» because the 
END“OFTFILE calculations are made. only when necessary» during 
the transition from writing to readings for example. 


No space 1s allocated or de~atlocated because of changing the 
vaiue cf this attributee | | 
LINEFORMAT “-"1024 | CFPBeLINEFORMAT) 
PRINTER ONLY» READ» ANYTIME/CLOSED> INTEGER © 
The attribute LINEFORMAT indicates whether the attributes 
UPPERMARGIN» LOWERMARGIN» and FOOTING should be used in the 
formatting of a print file. 
-LINENUM -7—-48 | CFIB-LINAGE.~COUNTER) 
PRINTER ONLY> READ ONLYs OPENED» INTEGER 
The attribute LINENUM points to the next Line in the logicat 


page to be written. LINENUM can have a value of 07255. The 
maximum value should never be greater than PAGESIZE. 
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LOWERMARGIN ---1026 «= CF PB.LOWER. MARGIN) 


PRINTER ONLY» AEAD/WRITES ASYTIME/SANYTIHES INTEGER 


The attribute LOWERMARGIN defines the tower margin to. be 
recognized by the MICRO.«HCP formatting procedures when 
forgatting an output print file. | | 


MAXRECSIZE ---50 |  CFPG@.eRECORO. SIZE) 


GENERAL» KREAC/WRITE» ANYTIME/CLOSED>» INTEGER 


The attribute MAXRECSIZE specifies the maximum stze of records 
in the logical file in FRAMESIZE units. | 


The attributes MAXRECSIZE>» MINRECSiZE» BLUCKSTRUCTURE>» and KING 
are closely related. MAXRECSIZE must he less than or equal to 
BLOCKSIZE. If BLOCKSTRUCTURE is equal to FIXED» SLOCKSIZE must 
be a multiple of MAXRECSIZE~. If MINRECSIZE is set greater than 
MAXRECSIZE>» it wilt be set to MAXRECSIZE. If MAXRECSIZE is 
equal to zero and @LOCKSIZE is greater than zero» the value of 
MAXRECSIZE is set to the value of BLOCKSIZE. 


MAXRECSIZE maps directly onto FPB_RECORD_SIZE. 


“#INRECSIZE 7-51 | CF PB. MINRECSIZE)D 


GENERAL» READ/WRITE>» ANYTIME/CLOSED> INTEGER 


The attrioute MINKECSIZE specifies the minimum size of records 
in the togical file in FRAMESIZE units. If MINRECSIZE is teft 
unset or is set to zero» a default value will be assigned when 
the file is opened» which depends upon the value of the 
‘attribute MAXHECSIZE. If MINRECSIZE was set greater than the 
value of MAXRECSIZE>s ¥t. will be reset equal to MAXRECSIZE. 


The sinimum record size used by the Logical 1/0 subsystem for 
deblocking the file is determined dy taking the maximus of? 

A. the logical einimum record size (CMINRECSIZE)>» | 

6. the minimum used when creating the physical fite» 
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"Gs and the minimum allowable record size (which is 
dependent upon the value of the attribute 
BLOCK STRUCTURE). 


Files with BLOCKSTRUCTURE other than FIXED require that the 
minimum record size be targe enough to contain the tink word or 
record length information. This attribute has meaning for 
variable length records only. 


MYUSE ---52 CFPd. INPUT FPB.GUTPUT) 
GENERAL»  REAC/WRITE> ANYTIME/CLOSED> INTEGER 
The attribute MYUSE specifies how the file will be used. The 


mnemonics of the MYUSE attribute are as follows: 
Oo = 10 - BOTH INPUT and QUTPUT 


(1 = IN - INPUT ONLY 
2 =-OUT - OUTPUT ONLY 


NEWFILE:---53 _ CFPB.NEW) 


GENERAL REAO/WRITE ANYTIME/CLGSED BOOLEAN 


When a file is opened and can potentiatty be asstgned to an 
INPUT/QUTPUT capable device such as disk or tape the WNEWFILE 
attribute alone wilt be used to decide whether or not a 
permanent file is desired. | | 


NEXTRECORD ---54 (CF IB.KEY) 
CISK/TAPE» | REAO ONLY» OPENED» INTEGER 
The attribute NEXTRECOKD returns the current position of the 
file. The SPB taplementation of NEXTRECORD wiil always return 


a one relative value. NEXTRECOGRO is invalid for Relative 
files. | 
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OPEN "--550 0 —ss—<—ssS EB PEND 

| GENERAL = KEAD ONLY ~~ ANYTIME BOOLEAN 


‘The attribute UPEN indicates whether or not the file ts open. 


OPTIUNAL ---56 a (FPH.CPTICNALD 


GENERAL» REAC/WRITE> ANYTIMNE/CLOSEC> BOOLEAN 


The attrioute OPTICNAL indicates whether or not the assignment 
of a permanent file ts optionat. If the permanent’ fite 
described by the attributes TITLE» WIND» etce 15 not present 

when the file is opened» a "NJ FILE™ message is sent to the 
operator's console and the program is suspended. If OPTIONAL 
is trues then the operator may respond with an “OF" systea 
Input messager» and the program will proceed without a physical 
tile assigned to the logical file. 


UTHERUSE ---570 = ss CF PG OPEN.LOCK FP@.0PEN.LUCKOUT) 


GENERAL» = REAC/WRITE> ANYTIME/CLOSED» — INTEGER 


The attribute QOTHERUSE specifies huw the file may be used by 
other programs during the time that this program has the file 
opene The mnemonics of the OQTHERUSE attribute are as follows? 
0 = [0 = BUTH I[NPUT and GUTPUT 

1 = IN = INPUT ONLY 

2 = OUT ~- QUTPUT OALY 

3 = SECURED - NEITHER INPUT or QUTPUT 

The default value is IU. | 
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PAGESIZE --760 (FPB.PAGE.SIZE) 

PKINTER ONLY» READ/WRITE> ANYTIHE/ANYTIME> INTEGER 


The attribute PAGESIZE indicates the number of tines on a 
logical page. PAGESIZE can have a value between zero (€0) and 
2556 | a 


PAGESIZE cannot change from zero to nonzero or viceversa 
while the file is: open. 

PARITY -~~6l CFPS.EVEN.PARITY ) 
PAPER TAPE/TAPE> READ/WRITE> ANYTIME/CLOSED> {INTEGER 
The attribute PARITY tindicates' the parity used on the file. 
The mnemonics of the PARITY attribute are: 


0 = UDE Cbhinary or standard parity) 
1 = EVEN Catpha or non=standard parity) 


PARITY may be set to any value for PAPER TAPE fites. PARITY 
may be set to EVEN for 7~TRACK MAGNETIC TAPE files only. 
RECORD ---128 (FIB.KEY) 
CISK/TAPE» | READ ONLY» OPENED» INTEGER 
The attribute RECORD returns the number of the logicat record 


referenced in the tLast I/0 statement. The value returned is 
one relative. 


- SAVEFACTOR ---63 (FPB.SAVE) 


DISK/TAPE> READ/WRITE> ANYTIME/CLOSED> INTEGER 


The attribute SAVEFACTOR indicates the expiration date of a 
tile in terms of the number of days fast the creation date. 


The system does not purge a tape whose SAVEFACTOR has expired 
untess expelerety totd to do Soe 
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Ihe SAVEFACTGR has no system-defined meaning for a disk file. 


SENIALNG ---700 0 CFP SSERTALD 


DISK/TAPEs | READ/WRITE>  ANYTAME/CLUSED, STRING | 


The attribute SERIAULNU returns the serial number of the tabeled 
tape or base memoder of the disk famity to which the _ togical 
file is assignede The seriai number of a tape is established 
Oy the SN system input message. 4 


A serial number is an alphanumeric string of up to six 
characters» left justified in a field of blanks. The value 
returned by the SEXTIALNO attribute is a string containing the 
serial number in six EBCDIC characters. | 


STATE ~--72 | | (FId sLIUsFILE.STATUS) 


GENERAL» READ ONLY» ASSIGNED» BOOLEAN VECTOR 


The attribute STATE returns information ees the fast I/0) 
operation performed on the file: , 


FLELD | MEANING | | 
0:1] An error has. occurred - one of the following 
| error fields wilt be non7zerd. 

C121] Boundary. violation. 
C221) Duplicate key. 

C321] sequence errofre 

C421) | A data error has occurred (size error for 

ek variable rec). 

(531) | invalid key. 

C721) Parity errore 

C931] End~of"file or end-of- payee 

(10:1). Short block. 

1321] | Break on outpute 

(1531) 1/0 timelimit has been exceeded. 

(16:1) A security violation has been areas 


(17:1) No disk space for user file. 
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TITLE ---80 CFPBANAMES) 

GENERAL»  REAC/WRITE> ANYTIME/ANYTIME> STRING 


The attribute TITLE is an external file name and is used to 
assoctate a logicait fite with a ghysical or permanent file. 
The default TITLE for a fite is the vatue of the INTNAME 
attribute. 


fhe TITLE attribute may be set using a string of the form 
"<FILE IDENTIFIER>* ON “<FAMILY IDENTIFIER>". 

This wild set the FILENAME attribute to "FILE ICENTIFIER"» and 

set the FAMILYNAME attribute to "FAMILY ICENTIFIER®™. 


The TITLE attribute will return the name of the physical fite 
assigned to the logical fiie. When a nonmblank FAMILYNAME is 
assigned to the logical file the TITLE attribute wiit return a 
string using the "UN" syntax. 


TRANSLATE ---82) (FP&.TRANSLATE) 


GENERAL» | READ/HRITE> ANYTIME/CLOSED» INTEGER 


The attribute TRANSLATE indicates the scope of transtation. 
The mnemonics and meanings of the TRANSLATE attribute are as 
follows: a | | 7 
| 2=FORCESOFT: software translation wilt take place using user 

| specified tabie. | 
3=NOSOFT: no software translation. 


TRANSLATING -""83 CF 18-TRANSLATE.TABLE ) 


GENERAL» READ ONLY» ANYTIME» BCOULEAN 


The attribute TRANSLATING returns true if software translation 
is being performed on the records of the file. 
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UPUATEFILE ---85 000  CFPG.ACCESS) oe 
CISK ONLY, READ/WRITE> = ANYTIME/CLOSED» = 8G0LEAN 


- The UPCATEFILE attribute allows the user to explicitly indicate 
when a disk file is to have the update [/0 accessing method. 


When a disk file is cpen and UPDATEFILE is true» the update I/G 
method implies that a serial (non~keyed) write following a read 
wilt) write upon the record just read (the nmormat serial mode 
writes upon the next record of the file). When the UPDATEFILE 
attribute is false» the update 1/0 methed witt not be used. 


UPPERMARGIN ~---1025 (FPGsUPPER «MARGIND 


PRINTER ONLY «= READ/WRITEs — ANYTIMESANYTIME> = INTEGER 


The attribute UPPERMAKGIN defines the upper margin to be 
recognized by the MICRO.4CP formatting procedures’ when 
forsatting an ocutput print file. | 


— USEDATE --"87— (DOFH.ACCESS.DATE) 


DISK UNLY» READ ONLY» ANYTIME> INTEGER, 


The attribute USEDATE returns the date when the file was last 
read or written Cy aiuser program» or if it is a code files» 
when it was last executed. The value returned is in the Julian 
form YYCOC. Fhe USEDATE of a file is unaffected by library 
maintenancee The value of thes attribute is not updated if the 
file resides on a read~only unit. | | : 


— VOLUMEINDEX ---89 wn (FPSeREEL) 
TAPE ONLYs READ/WRITEs  ANYTIME/CLOSED» INTEGER 
The VOLUMEINDEX attribute is the fite number within a volume 
sete The tnitial and default value 15 one (1). The vatue of 


the VOLUMEINDEX is incremented whenever the volume set 15 
tnvotved in a reel switch. 
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Passing the Uperating System a null value for the YOLUMEINDEX 
attribute causes the attrifute to be set to one (1)» its 
default value» and marks the logicat fite as not requiring 
specific VULUMEINDEX checking when the logical file is assigned 
to a permanent fite. 


The VOLUMEINDEX attribute is used in permarent tape _ fite 
assignaent along with the attributes KIND» TITLE ande when 
appropriates CYCLE and VERSION. The VGLUMEINCEX attribute is 
atso used in automatic input reel switching. 
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gp ste aa ae ae 


GENERAL CESCRIPTION 


The disk trace feature allows system processes to be monitored. 
The file created by the trace is accessed through the 
COMMUNICATE WKITH~GISMO CCWG) mechanism and is accessible to any 
noragat-state programs MCP» Micro~MCP» interpreter or GISMO. This 
feature aitows a very high volume of data to be recorded ina 
short period of times with relatively smatl perturbation of 
system performancee For example» the trace has been used to 
record atl S~ops executed by the MCP over arun of several hours. 


For purposes of analysis» the trace file may be considered as a 
serial disk file.  Logicat I/0 is done in much the same fashions 
and the fini shed appearance is identical.  Howevers 
asynchronously running processes can make entries in the file, 
its access is not restricted to a single process. 


ACCESS 


é&ntries in the file are made through a set of CWG operators. The 
CHG mechanism is reached by passing GISMG a value of E£ in the X 


register. T contains the absolute address and tl contains the 
length of a contiguous structure cf the form: 


O01 DISK.~TRACE.OP.~AND.RECORD 


02 CISK.~TRACE.OP BITC8) 
03 DISK.~TRACE.TYPE | BITC4) 
03 OISK.~TRACE~FUNCTION EITC4) 
02 FILLER | BITC4) | 
02 DISK.~TRACE.MASK BITC(24) 
02 OISK-TRACE.RECORD SIT(CN*#8) 
DISK.TRACE.-TYPE should contain 2e See the section on Disk 


Trace Functtons for specification of the trace functions and see 
the section on KT Controi Cards for use of DISK.TRACE.MASK. 


In SOL» the CWG Stop sets up Xs Ts» and L» and caits GISM0O. It 15 
invoked» for examples as foliows: 
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DECLARE 


ae 8s O88 08 


Gs 8s Oe 06 88 66 6 os es 
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02) «DISK.TRACES OP. AND. RECORD 

3» 02 ODISK. TRACE. UP BITC8) 

» 02 RESERVED BiT(2e8) 

» 02 DISK. TRACE. KECORD CHARACTERC10) 

r 

DE FINE TRACE-WRITE S 

7 

pa = , 

=DISK. TRACE~ OP 1 TRACE. WRITES 

RESERVED | O> 

DISK.TRACE.sRECORD .1 “ABCDEF"3 

“COMMUNICATE WITH. GISNU (DISK. TRACE OP. AND. RECORD D+ 
Zz 

STOP; 

sFINIs 

GISMO respects the caller's state» but no more than = four 


Notes 


ase 


ake 


A-stack cells should be in use when a CWG is invoked. 


TRACE FUNCTIONS 


user may specify 


Start Trace 


Stop Trace 


Enter Time 


Enter Record 


the following functions (BITS 477 of CWG 


Enable entries to disk trace file. The 
MCP starts the trace when tt opens the 
file. 


Disable entries to file until the next 
"Start Trace” cp is received. 


The 4@n-bit value of the hightresolution 


timer 185 written tn the right~most 
4B-bits of the data area passed by the 
usefre The data is then entered in the 
file. Lf no timer is presente the time 


part of the user's data is zeroed out. 
if the data area passed is tess than 
48-bits»s this data is entered tin the file 
with no changes, 1<«@e» no time value is 
inserted. 


NOTE: The timer value is returned in the 


 $pace passed by the user» as well as 


being entered in the file. 


The record part of the CWG op is entered 
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in the trace filee The record is assumed 
to be of the length scecified to the MCP 
at open time; otherwise» tt is teft 
justified» right truncated»s or garbage 
filled on the right if the data passed 1s 
smaller than the declared record size. 


d7a Initialize Time The first 48"bits of the record part 


contain a vatue to be loaded into the 
hightresolution timere The MCP 
initializes the tiser to zero when the 
file is opened. This op has no effect if 
there is no timer on the systeme 


KT CUNTROL CARDS 


The cdisk 
carde 


OPEN 


CLOSE 


trace file is opened and closed through the KT controt 


The MCP wiit open the file» allocate disk space» 
allocate and initiaize buffers and descriptors 
according to the user's specifications in the’ KT 
message. : 7 


Optimally» no other activity would occur on this pack 
while the disk trace file tts in uS@e This will 
minimize contention over the arm of the drives and so 
minimize the busy waits necesary for trace buffers. 
The file will begin accepting records as soon as the 
OPEN 31s complete. Up to this point» disk trace ops 
are merely ignored. 

There are two ways of closing the trace files: 


ae Explicitty» by a KT CLOSE fron cards or SPQ. 


be. Tapticitly» when GISMU detects EOF. 


_ | _s. | — a 
BURROUGHS CORPORATION | | COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP NCP COMMUNICATES AND STRUCTURES 
SANTA BARBARA PLANT — : 2219 O14d Ca) eM IX A 
aaa, 


The logical 1/0 for the file is ner forsed by GiSHC. If an entry 
is atteapted fron outside GISMO tefore a buffer is available» an 
active spin occurs until a buffer is marked ready» If entries 
are being made very rapidly» the timing of system processes will 
oe perturbed. 7 


Entries wade from inside GISMO are tost if there is no buffer 
frees § The lost entries are counted» and the first record 
fotlowing the lost records contains: 


O01 MISSING -ENTHY.RECURD BITC48) 
8 02 MISSING.ENTRY.KEY. BIT(24) 
> —«-s- @2-—s MASSING.ENTRY.CUUNT = BIT(24) 
The MISSINGSENTRY.KEY contains aFFFFFFa. This affects onty 


entries sade from inside GISMO. 


Due to overhead imposed by the existence of the disk trace files. 
the results fram the hightresalution timer will not have true. 


micro~second resolution. The timer is stopped whenever any disk. 
trace function is executed» masking out most of this overhead 
Cspecificatly» waits for trace buffers are maskec out). Any 


traces using the timer should be designed with a skeptical eye to 
the: overhead. , 
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